The function below returns a string without HTML tags. This is the code:

Function strRemoveHTMLTag(strHTMLString)

        Dim rexExpression, strOutput

        'cretion of Regular Expression object

        Set rexExpression = New Regexp

        rexExpression.IgnoreCase = True
        rexExpression.Global = True

        rexExpression.Pattern = "<(.)+?>"

        'string manipulation
        strOutput = rexExpression.Replace(strHTMLString, "")

        strOutput = Replace(strOutput, "<", "")
        strOutput = Replace(strOutput, ">", "")
        strOutput = Replace(strOutput, "&quot;", """")

        'returns of the result to the function 

        strRemoveHTMLTag = "'" & strOutput

        'destruction of RegExp object

        Set rexExpression = Nothing

End Function

________________________________________________________________________

Pag: <<    <    >   >>