Как составить разветвляющуюся программу решения квадратного уравнения вида ax^2+bx+c=0 - VB

Private Sub Command1_Click()
  Dim a As Double, b As Double, c As Double, d As Double
  Dim x1 As Double, x2 As Double, s As String
    a = InputBox("a = ", , 2)
    b = InputBox("b = ", , 5)
    c = InputBox("c = ", , 2)
    d = b ^ 2 - 4 * a * c
    If a = 0 Then
          MsgBox "ОШИБКА !  a=0 !", vbCritical, " Error "
    ElseIf d < 0 Then
         MsgBox "Нет решения,дискриминант < 0", vbCritical, " Error "
    Else
         x1 = (-b + Sqr(d)) / (2 * a)
         x2 = (-b - Sqr(d)) / (2 * a)
         If x1 = x2 Then
                 s = "Корень уравнения :" & x1
         Else
                 s = "Корни уравнения :" & x1 & "  и  " & x2
         End If
         MsgBox s, vbInformation, "Результат."
    End If
End Sub