<%
strText = "Hej hopp lingonsnopp i lingonskogen <div class='headLargeBlack'>Kul</div>"
Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "\<div class='headLargeBlack'\>(.*?)\<\/div\>"
Set myMatches = objRegExp.Execute(strText)
For each item In myMatches
Response.Write item.Value
Next
%>