Private Function StripHTML(byVal strWithHTML)
Dim tagStart, tagEnd, strNewHTML
strWithHTML = Replace( strWithHTML, vbTab, "" )
strWithHTML = Replace( strWithHTML, vbCrLf, "" )
strWithHTML = Trim( strWithHTML )
do
tagStart = Instr(strWithHTML, "<")
tagEnd = InStr(strWithHTML, ">")
strNewHTML = Mid( strWithHTML, tagStart, tagEnd - tagStart + 1)
strWithHTML = Trim( Replace( strWithHTML, strNewHTML, "" ) )
loop until Not Instr(strWithHTML, "<") AND Not Instr(strWithHTML, ">")
If Instr(strWithHTML, "<" )Then
strWithHTML = StripHTML( Trim( strWithHTML ) )
End If
StripHTML = Trim( strWithHTML )
End Function
