大家帮忙看看程序有什么问题？

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
a = Form1.Text1.Text
b = Form1.Text2.Text
c = Form1.Text3.Text
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox "无解"
Else
Dim e As Double
e = Sqr(d)
Form1.Text4.Text = 0 - b + e
Form1.Text5.Text = 0 - b - e
End If


End Sub


这是一个求解一元二次方程的程序，但是无法得出正确结果，
程序似乎只计算了  -b
而没有计算后面的表达式
请问这是什么情况？
我该怎么办呢？