Stop Letters being entered into a Text Box

[dsy5]

Well if you know how to stop numbers, you know how to stop letters!

'stop numbers
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
End Sub

'stop letters
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If Not (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
End Sub

This does't remove all the other possible characters, such as puntuation and control characters.
But you can check for the values between 0 and 58 and then over 122 and simply eliminate them.

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii > 0 or KeyAscii < 58 Then 
        KeyAscii = 0
  Else
       If KeyAscii > 122 Then KeyAscii = 0
  EndIf
End Sub

This will give you only letters.

The numbers are the decimal Ascii number corresponding to the character. 32 is a space.
See your VB help, there is an Ascii chart in it.