Function stripHTML(strHTML)

    Set objRegExp = New Regexp

        objRegExp.IgnoreCase = True

        objRegExp.Global = True

        objRegExp.Pattern = "<.+?>"

        strOutput = objRegExp.Replace(strHTML, "")

        stripHTML = strOutput

    Set objRegExp = Nothing

End Function

+ Recent posts