Решит квадратное уравнение в VB

Private Sub Command1_Click()
a = Val(InputBox("a-?"))
b = Val(InputBox("b-?"))
c = Val(InputBox("c-?"))
If a <> 0 Or b <> 0 Then
 If a = 0 Then
  st = "x=" & c / b
 Else
    d = b ^ 2 - 4 * a * c
     Select Case d
     Case Is < 0
     st = "действительных корней нет"
     Case Is = 0
      st = "x1=x2=" & -b / 2 * a
     Case Else
     st = "x1=" & (-b + Sqr(d)) / (2 * a) _
        & vbLf & "x2=" & (-b - Sqr(d)) / (2 * a)
     End Select
 End If
Else
st = "a или b <> 0 !"
End If
MsgBox st
End Sub