how to validate the input in my text box

[miletjs]

i want that my text box accepts only numeric values. How do i do that? is there a "not in(0..9)" syntax, just like in Pascal?

[ExcalibursZone]

Here ya go:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        If KeyAscii <> 8 Then KeyAscii = 0
    End If
End Sub

[cas21]

'Numerics only please!

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub

[miletjs]

thanks.

but what is the equivalent char of asc value 8?

You should add:

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

Private Sub Text1_Change()
    Dim i As Integer, s As String, t As String
    For i = 1 to Len(Text1)
        s = Mid(Text1, i, 1)
        If Not IsNumeric(s) Then s = ""
        t = t & s
    Next
    Text1.Text = t
End Sub

You earn 1 face as a token.

The Equal of Chr 8 is <-Backspace.