[EXCEL VBA] Rownanie kwadratowe Excel VBA, potrzebna pomoc

Witam przychodze z problemem, ponieważ kompletnie jestem zielony w tych sprawach i nie potrafie sobie poradzić z tak błachym zadaniem w EXCELU. Zadaniee daje w załączniku
Tutaj podaje kod który mam uzupełnić
Sub równanie_kwadratowe()
Dim a As Single, b As Single, c As Single, d As Single
a = [A1]
b = [B1]
c = [C1]
If …………… Then
………………………
………………………
If …………… Then
[D1]= ……………
[E1]= ……………
Else
………………………
………………………
End If
Else
………………………
………………………
End If
End Sub

Czy jest ktoś w stanie mi pomóc z tym? Byłbym bardzo wdzięczny.
Pozdrawiam

Option Explicit

Sub równanie_kwadratowe()
Dim a As Single, b As Single, c As Single, d As Single
a = Range("a1").Value
b = Range("b1").Value
c = Range("c1").Value

If a <> 0 Then
d = b ^ 2 - 4 * a * c

Else
MsgBox "To nie jest równianie kwadratowe"

End If

If d >= 0 Then
Range("d1") = (-b - Sqr(d)) / (2 * a)
Range("e1") = (-b + Sqr(d)) / (2 * a)
Else
MsgBox "Nie ma rozwiązań rzeczywistych"
End If

End Sub