Find number in a string

[ngocvo3103]

Hi there,

You can use this way to get any number(s) from a string

Code:

Public sub s_GetNumberFromString (strText, byref colNum)
    Set ObjRegExp = New RegExp
    ObjRegExp.Pattern = "\d+"
    ObjRegExp.Global = True
    Set colNum = ObjRegExp.Execute(strText)
End Sub

Dim colNum
s_GetNumberFromString strNormal, colNum
For each intNum in colNum
    MsgBox intNum
Next

Ngoc Vo