Public Function HTMLToText (Html As String) As String

    Dim Output As String
    Dim i As Long
    Dim InTag As Boolean
    Dim Char As String
    
    If Len(Html) = 0 Then Exit Function
    
    For i = 1 To Len(Html)
        Char = Mid(Html, i, 1)
        
        If Char = "<" Then
            InTag = True
        End If
        
        If Not InTag Then
            Output = Output & Char
        End If
        
        If Char = ">" Then
            InTag = False
        End If
        
    Next
    
    ParseHTMLSpecialChars (Output)
    
    HTMLToText = Output
End Function