Решение квадратных уравнений в Visual Basic

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = b * b - 4 * a * c

Text4 = d

If d > 0 Then

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Text5 = X1

Text6 = X2

Else

Text5 = "Решение нет"

Text6 = " Решение нет "

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

End

End Sub