• Home
 · 
• Miscellaneous
 · 
• Get only numbers in Text Box

Get only numbers in Text Box

Get only numbers in Text Box

API Declarations


'Insert a Text Box in a Form and named as TxtNumber



Rate Get only numbers in Text Box

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub TxtNumber_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57, 8             ' Numbers 0 to 9 and Backspace key
    Case Else: KeyAscii = 0
  End Select
End Sub