VB的 高手来急 看看这哪里错了

Private Sub Command1_Click()
Const pi = 3.14
If Text1.Text = "" Then
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 Sub
Private Sub Command2_Click()
Exit
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()

End Sub
有两个错误 谢谢了

急 Vb高手来 VB编程高手来！急！！！！！！！！！！！！ 急!!VB 高手请进来!! vb的高手来？？？？？？ vb高手来帮我看看 VB高手看看很容易的！！！ 关于VB的问题....VB高手来........... vb急问 高手来指导 VB基础题，急！！！高手来帮忙！！！ 来个VB高手！！！！！急！！！！！谢谢！