我在书上抄的VB代码，为什么还有实时错误424

Private Sub Command1_Click()
Dim a, b, c, d As Single
a = Ta.Text
b = Tb.Text
c = Tc.Text
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox "你输入的系数方程无解，请重新输入！", vbExclamation
Else
If d = 0 Then
T1.Text = (-b + Sqr(d)) / (2 * a)
T2.Text = (-b - Sqr(d)) / (2 * a)
MsgBox "只有一个解"
Else
T1.Text = (-b + Sqr(d)) / (2 * a)
T2.Text = (-b - Sqr(d)) / (2 * a)
End If
End If
End Sub

Private Sub Command2_Click()
Ta = ""
Tb = ""
Tc = ""
T1 = ""
T2 = ""
End Sub

大侠们帮我看这段代码有什么错的,书上抄的核对了好几遍,没发现什么,还请各位帮看看! 我在书上看到好多的VB代码，但我不知道它什么意思，去哪里可以翻译呢？ C语言,在书上抄的运行错误! 我感觉ASP的代码和VB代码差不多，为什么 我的vb计算器代码 这个程序为什么运行不出来,直接照书上抄的啊(VC6.0,API函数) 为什么我老觉得书上的东西在现实没用？ 为什么水滴在书上，书上的字就会变大 谁能帮我调试一下这个程序，从书上抄的却运行不了 C++我照书上输入的代码显示出错?