questa dovrebbe funzionare

codice:
Option Explicit

Public Function RemoveHTML(sSource As String) As String
    Dim i As Long
    Dim l As Long
    Dim buffer As String
    Dim tmp As String
    Dim inTag As Boolean
    
    inTag = False
    i = 1
    l = Len(sSource)
    buffer = ""
    tmp = ""
    
    If (l = 0) Then
        RemoveHTML = ""
        Exit Function
    End If
    
    Do While i <= l
        tmp = Mid$(sSource, i, 1)
        If (inTag) Then
            If (tmp = ">") Then
                inTag = False
            End If
        Else
            If (tmp = "<") Then
                inTag = True
            Else
                buffer = buffer & tmp
            End If
        End If
        i = i + 1
    Loop
    
    RemoveHTML = buffer
End Function