Only numbers in a textBox

[Grog9999]

I've got a textbox that will only need integer. How can I do to make it impossible to write anything else than numbers into it?????

 

[btriggs127]

use this
Private Sub on VALUE_KeyPress()

If keyascii <> 8 Then
keyascii = IIf(Chr(keyascii) Like &quot;[0-9]&quot;, keyascii, 0)
End If

End Sub

 

[Grog9999]

Thanks a lot

 

[JohnYingling]

Private Sub txtInteger_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 9, 13
exit sub
Case Else
if Chrw(keyAscii) Like &quot;[0-9]&quot; then exit sub
KeyAscii = 0
End Select
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript