• Home
 · 
• VB function enhancement
 · 
• Allow only numbers in a textbox

Allow only numbers in a textbox

This program won't allow any other characters in a textbox then numbers and it allows you to use your Backspace key.

Rate Allow only numbers in a textbox

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

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