Function RemoveTags(HTML As String) As String
Dim buf As String, pos As Integer

pos = InStr(HTML, "<")
'check for no tags situation
If pos = 0 Then
    RemoveTags = HTML
	Exit Function
Enf If

Do
' Add text before the first tag to beffer
buf = buf & Left(HTML, pos - 1)
' Find end of tag
pos = InStr(HTML, ">")
' Remove everythin up to the
' end of the tag from text
If pos = 0 Then Exit Do
HTML = Mid(HTML, pos + 1)
' Find the start of the next tag
pos = InStr(HTML, "<")
If pos = 0 Then Exit Do
Loop While True
RemoveTags = buf
End Function