Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(strHTML)
For Each Match In Matches
strHTML = Replace(strHTML, Match.Value, "")
Next
strHTML = Replace(strHTML, " ", "")
RemoveHTML = strHTML
Set objRegExp = Nothing
End Function