==============================================
Limit an input to 0-9, ignoring all others:

Sub Textbox_Keypress (KeyAscii as Integer)
    If KeyAscii < Asc("0") or KeyAscii > Asc("9") Then
       KeyAscii = 0
       Beep
    EndIf
End Sub