Aiuto: Estrarre un numero da una stringa

[Baol74]

Meglio senza regExp se il formato è certo

Function GetNumber(StrIn)
Dim Pos,i
For i=1 to Len(StrIn)
	Pos = InStr("0123456789",Mid(StrIn,i,1))
	If Pos>0 then Exit For
Next
If Pos>0 then GetNumber=Mid(StrIn,i)
End Function