怎样限制TextBox,输入的文本只是数字 ，而不接受字母等其他字符的输入。。。急急急，知道的帮我解决一下，谢谢啦

isnumeric(变量)

If Not IsNumeric(Trim(text1.text)) Then
    MsgBox "请输入数字！" ,……,……
    Exit Sub
    text1.SetFocus
End If

Exit Sub
   text1.SetFocus

   这里有个小问题：已经执行了  Exit Sub，就不会   text1.SetFocus

text1.SetFocus
Exit Sub