VB属性设置及程序改错题

Private Sub Command1_Click()

Const pi = 3.14

If Val(Text1.Text) <>0 Then'这里应该判断不为0时再执行下面语脊运句，最好用Val(Text1.Text) <盯首>0

r = Text1.Text

If r = Val(Text1.Text) Then

s = pi * r * r

Label3.Caption = s

Else

MsgBox "输入的不是数据，请重新输入！"

Text1.SetFocus

End If

End If

End SubPrivate Sub Command2_Click()

End'这个过程只有一个语句，所以用脚丫想都知道一定是这句错。程序结束语句是end，没樱则梁有exit，Exit sub是退出子过程用的。

End Sub

请问错误定位在哪里？

Dim c As Single

c = Val(InputBox("请输入口令：", "输指枝入口令", 0))

If c = 123 Then

这里 C 为 string字迅橘符型吧？改为

Dim c As String

c = InputBox("请输入口令：", "唯昌敏输入口令", 0)

If c = "123" Then

---