Stupid Question?

[James Stanich]

How do I limit textbox only to accept text w/o using maskedcontrol?

[Evan]

Im not sure what you want.
Please explain.

Do you want only certain
letters to appear that
are typed?

[Jop]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

[sebs]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 49 And KeyAscii < 57 Then KeyAscii = 0
End Sub

[Jop]

Use this to only accept numbers

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 33 Then Exit Sub
If Not (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
End Sub

And this just to tease people

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 33 Then Exit Sub
If KeyAscii Mod 2 = 0 Then KeyAscii = 0
End Sub