OnlyNumber

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
Case Else
Beep
KeyAscii = 0
End Select
End Sub