关于vb的问题 急需解决！！！！！！

[永恒挑战]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If IsNumeric(TextBox2.Text) = False Then
MsgBox("请输入数字")
' TextBox2.Text = ""
Me.TextBox2.Focus()
##############################################################
End If
If 98 < TextBox2.Text And 100 > TextBox2.Text Then
TextBox1.Text = TextBox2.Text
Else : TextBox1.Text = "不符合要求"

End If


End Sub
我写了一个简单的vb程序，点击button2判断textbox2上输入的东东，进行判断之后textbox1上显示结果的程序，我的问题是
假如我在textbox2上输入的是英文字母 IsNumeric（###上面）进行判断之后 焦点返回textbox2并textbox2显示为空,等待重新输入，但是 发现程序到###下面的部分报错，，，我不知道怎么解决请高手指点。

[永恒挑战]

....

[lqq7072000]

Me.TextBox2.Focus() ?有这个函数吗 SetFocus

[永恒挑战]

我不知道具体 怎么写？？？请指点 想了半天没解决~!~~~~~~~~~~~

[饮水需思源]

If not IsNumeric(TextBox2.Text) Then
MsgBox "请输入数字",48,"提示"
textbox2.setfocus
exit sub
end if

[of123]

If "98" < TextBox2.Text And "100" > TextBox2.Text Then
或
If 98 < Val(TextBox2.Text) And 100 > Val(TextBox2.Text) Then

另：
If IsNumeric(TextBox2.Text) = False Then
MsgBox("请输入数字")
' TextBox2.Text = ""
Me.TextBox2.Focus()
Exit Sub '跳出过程
##############################################################
End If

[tmd007]

.net ,没有试过

[舉杯邀明月]

关键是在 Me.TextBox2.SetFocus 的下一句写上:

Exit Sub