Grazie mille per l'aiuto 
ma ho risolto in altro modo, o meglio sto finendo adesso ma sembra funzionare,
codice:
'Create a regular expression object
Dim objRegExp
Set objRegExp = New RegExp
'Set our pattern
objRegExp.Pattern = "src(.*?)jpg"
objRegExp.IgnoreCase = True
objRegExp.Global = True
'Get the matches from the contents of our HTML file, strContents
Dim objMatches
Set objMatches = objRegExp.Execute(stringa)
'Now, instead of just outputting a specifc match in the objMatches collection, let's list each match:
Dim objMatch
For Each objMatch in objMatches
foto = objMatch.Value
foto= replace(foto,"src=", "" )
foto= replace(foto,"""","")
Next
funziona bene.
in ogni caso mo provo pure la tua mi sembra molto interessante , me la devo studiare.
GRazie ancora per l'auito Mauro