Strip HTML from a string with this function. That basically explains it’s all!!
Original Author: DoWnLoHo
Code
Public Function StripHTML(sHTML As String) As String
Dim sTemp As String, lSpot1 As Long, lSpot2 As Long, lSpot3 As Long
sTemp$ = sHTML$
Do
lSpot1& = InStr(lSpot3& + 1, sTemp$, "<")
lSpot2& = InStr(lSpot1& + 1, sTemp$, ">")
If lSpot1& = lSpot3& Or lSpot1& < 1 Then Exit Do
If lSpot2& < lSpot1& Then lSpot2& = lSpot1& + 1
sTemp$ = Left$(sTemp$, lSpot1& - 1) + Right$(sTemp$, Len(sTemp$) - lSpot2&)
lSpot3& = lSpot1& - 1
Loop
StripHTML$ = sTemp$
End Function