CodeItBetter Programming Another VB Programming Blog

'Controls - How to allow only number in a text box
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case Is < 32               ' Control keys are OK.
    Case 48 To 57              ' This is a digit.
    Case Else                  ' Reject any other key.
        KeyAscii = 0
    End Select
End Sub