type numbers only on a txtbox, no letters allowed

[chubzyko]

Code: Select all

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub