楼上的回答是对的。
If IsNumeric(Text1.Text) Then
'如果是数字字符，将会执行此处代码。
Else
'如果不是数字字符，将执行此处代码。
End If
if IsNumeric() then
输入的是数字
esle
输入的不是数字
end if
好象vb有个isnumeric函数可以（有可能拼错)，可以到vb的对象浏览器里查一下
IsNumeric(text1.text)如果是数字则返回真值
IsNumeric()
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024