文本框中输入的必须是数字

在VB中，怎么让文本框中只可以输入数字。如果输入的不是数字则弹出对话框，，“请输入数字”
应该用哪个函数.代码应该怎么写呢，
要是只让输入的是字母，又应该用哪个函数，
或者只让输入的是字符。。又应该用的是哪个函数？
初来乍到，望多指教。。。先谢谢了。。。。

'只允许输入数字
private sub text1_Keypress(Keyascii as integer)
select case keyascii
case asc("0") to asc("9")
case else
msgbox "请输入数字"
end select
end sub

'只允许输入字母
Private Sub text1_Keypress(Keyascii As Integer)
Select Case Keyascii
Case Asc("a") To Asc("z")
Case Asc("A") To Asc("Z")
Case Else
MsgBox "请输入字母"
End Select
End Sub

'只允许输入这些符号
Private Sub text1_Keypress(Keyascii As Integer)
Select Case Chr(Keyascii)
Case ".", ",", "/", "<", ">", "?", ":", ";"
Case Else
MsgBox "请输入符号"
End Select
End Sub

Private Sub Text1_Change()
If IsNumeric(Right(Text1.Text, 1)) = True Then
MsgBox "输入的是数字"
Else
MsgBox "输入的不是数字"