vb!!!!!!!!我不知道怎么解决请高手指点。

Question

    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显示为空,等待重新输入，但是 发现程序到###下面的部分报错，，，我不知道怎么解决请高手指点。

Answer 1

MsgBox("请输入数字")  之后，exit sub。

Answer 2

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