Public Function RemoveTags(ByVal strIn As String) As String
   Dim intStart As Integer
   Dim intEnd As Integer
   Dim strOut As String
   intStart = InStr(1, strIn, "<")
   If intStart > 0 Then
      intEnd = InStr(intStart, strIn, ">")
      If intEnd > 0 Then
         strOut = Mid$(strIn, 1, intStart - 1) & Mid$(strIn, intEnd + 1)
         strOut = RemoveTags(strOut)
         RemoveTags = strOut
      Exit Function
      End If
   End If
   RemoveTags = strIn
End Function