Public Function RemoveHtml(ByVal strHTML) As String
Dim Pattern = "<(\/\s*)?!?((\w+:)?\w+)(\w+(\s*=?\s*(([""'])(\\[""'tbnr]|[^\7])*?\7|\w+)|.{0})|\s)*?(\/\s*)?>"
strHTML = System.Text.RegularExpressions.Regex.Replace(strHTML, Pattern, String.Empty, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
strHTML = strHTML.Replace(" ","")
Return strHTML
End Function
function delhtml(strhtml)
dim objregexp, stroutput
set objregexp = new regexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)"
stroutput = objregexp.replace(strhtml, "")
delhtml = stroutput
set objregexp = nothing
end function