Check if textbox text is a number?

[em07189]

Hi everyone?

How can know if a textbox text it´s a valid number?

Thanks.

[Besoup]

isnumeric(textbox)

[gavio]

A bit extended (regarding the "valid" term)

With Text1
    If IsNumeric(.Text) Then
        If InStr(1, .Text, ".") Or InStr(1, .Text, ",") Then
            If Val(.Text) > 0 Then
                Debug.Print "is positive floating point number"
            ElseIf Val(.Text) < 0 Then
                Debug.Print "is negative floating point number"
            Else
                Debug.Print "is zero"
            End If
        Else
            If Val(.Text) > 0 Then
                Debug.Print "is positive fixed point number"
            ElseIf Val(.Text) < 0 Then
                Debug.Print "is negative fixed point number"
            Else
                Debug.Print "is zero"
            End If
        End If
    End If
End With

edit: oops... changed floating to fixed

[zynder]

Private Sub Command1_Click()
    If IsNumeric(Text1) Then
        MsgBox "Number"
    Else
        MsgBox "Not"
    End If
End Sub

[MartinLiss]

You can also download and compile the code for my NumberBox ocx from the link in my signature. It will prevent anything but numbers from being entered in the first place.

[Besoup]

if you would rather limit entry of anything besides numbers without using a ocx you could do the following in the textbox' keypress event:

Select Case KeyAscii
     Case 13 'Enter has been pressed
     
     Case 48 To 57 '<- ascii values of 0 thru 9
           'Do nothing
    Case Else 'anything else besides a number or enter key turns to a 0 value.
           KeyAscii = 0
End Select

I am gonna check out the ocx myself.