Private Sub Text1_KeyPress(KeyAscii As Integer)
'Another variation on the theme

Select Case KeyAscii
'Allow Backspace, 0 - 9 only
Case 8, 48 To 57
Case Else
Beep
KeyAscii = 0
End Select

Cheers
Adrian.