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
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function