Strip HTML

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

Upload