CodeItBetter Programming Another VB Programming Blog

'Controls - How to Make a TextBox allow only letters and numbers
'In the TextBox's KeyPress event, look for characters that are not letters or
'numbers and discard them by setting KeyAscii to 0.

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 65 To 90           ' Characters A to Z
    Case 97 To 122          ' Characters a to z
    Case Else               ' Reject any other key.
        KeyAscii = 0
    End Select
End Sub