Function HTML_DeleteSpaces(ByVal txt$)
    On Error Resume Next
    REGEXP.Pattern = "[\s\n\r\t]+"
    HTML_DeleteSpaces = REGEXP.Replace(txt$, " ")
    HTML_DeleteSpaces = Replace(HTML_DeleteSpaces, "> <", "><")
End Function

Function HTML_DeleteAttributes(ByVal txt$)
    On Error Resume Next
    With REGEXP
        .Pattern = "(<[A-Za-z1-6]+)[^<>]*(>)"
        txt$ = .Replace(txt$, "$1$2")
        .Pattern = ">\s*<"
        txt$ = .Replace(txt$, "><")
    End With
    HTML_DeleteAttributes = txt$
End Function

Function REGEXP()
    On Error Resume Next
    Static REGEXP_ As Object
    If REGEXP_ Is Nothing Then Set REGEXP_ = CreateObject("VBScript.RegExp"): REGEXP_.Global = True
    Set REGEXP = REGEXP_
End Function