you can also create a function, if the "number" part has variable length, ie 01, 02, 101, 10001:
Code:
Public Function fncOnlyNumber(ByVal pString As String) As String
With CreateObject("vbscript.regexp")
.ignorecase = True
.Global = True
.pattern = "([^0-9]+)"
pString = .Replace(pString, "")
End With
fncOnlyNumber = pString
End Function