Find number in a string

[bfakruddin]

Code:

Dim var
var = inputbox("Enter the string with any numeric value", "Alpha Numeric", "Baba205Fakruddin")

Function Get_No_FromString(var)

    len_var = len(var)

    bln=""
    For i=1 to len_var
    
        cha =mid(var,i,1)
    
        If isnumeric(cha) Then          '1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or  9)
            bln = bln&cha
            print bln
        End If
    
    Next
    
    print "The digits in string"&bln

    Get_No_FromString=bln
End Function


No_in_String = Get_No_FromString(var)
msgbox "The digits available in string"&No_in_String