• Home
 · 
• VB function enhancement
 · 
• Numerical input into text box (1 line of code)

Numerical input into text box (1 line of code)

With this 1 line of code you can strip non-numerical input into text boxes.

Rate Numerical input into text box (1 line of code)

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

Private Sub Text1_KeyPress(KeyAscii As Integer)
' Force numbers only in a text box
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub