test = "<div class=""testo""><div class=""img""></div><div>lorem ipsum lorem ipsum</div></div>"

Dim objRegExp
Set objRegExp = New RegExp

objRegExp.Pattern = "<div class=""testo"">?:<div>.*?</\div>|.*?<\/div>"
objRegExp.IgnoreCase = True
objRegExp.Global = True

'Get the matches from the contents of our HTML file, strContents
Dim objMatches
Set objMatches = objRegExp.Execute(test)

Dim objMatch
For Each objMatch in objMatches
Response.Write objMatch.Value
Next


così va