This program won’t allow any other characters in a textbox then numbers and it allows you to use your Backspace key.
Original Author: RayDance
Code
Private Sub text1_KeyPress(KeyAscii As Integer)
Dim Numbers As Integer
Dim Msg As String
Numbers = KeyAscii
If ((Numbers < 48 Or Numbers > 57) And Numbers <> 8) Then
Msg = MsgBox("Only Numbers are aloud in this Textbox", vbCritical, "Error Number")
KeyAscii = 0
End If
End Sub