Visual Basic

srisant wrote:

stop demotivating people,

sTemp = TestString
    iLen = Len(sTemp)
    If iLen > 0 Then
        For iCtr = 1 To iLen
            sChar = Mid(sTemp, iCtr, 1)
            If Not sChar Like "[0-9]" Then Exit Function
        Next
    'If IsNumeric(sTemp) = True Then
        'If Not sTemp Like "[0-9]" Then MsgBox "Hi"
    'End If
    
    IsNumericOnly = True
    End If

kissdznuts wrote:

download something like Expresso

indian143 wrote:

it free download

Set objRegExp = New VBScript_RegExp_10.RegExp

   With objRegExp
       .Pattern = "\d{" & iLen & "}"
       .IgnoreCase = True
       .Global = True
   End With

   If iLen > 0 Then
        If (objRegExp.Test(sTemp) = True) Then
           IsNumericOnly = True
        End If
   End If