Aiuto: Estrarre un numero da una stringa

[Baol74]

Function GetNumber(StrIn)
	Dim Re,Matches
	Set Re = new RegExp
	Re.Global=True
	Re.IgnoreCase = True
	Re.Pattern = "\w+?(\d+)"
	Set Matches =  Re.Execute(StrIn)
	if  Matches.Count>0 then GetNumber = Matches(0).subMatches(0) 
End Function

Provala.

Ciao