清除字符串中的html代码

Function stripTags(HTMLstring)
        dim RegularExpressionObject 
    Set RegularExpressionObject = New RegExp
    With RegularExpressionObject
        .Pattern = "<[^>]+>"
        .IgnoreCase = True
        .Global = True
    End With
    stripTags = RegularExpressionObject.Replace(HTMLstring, "")
    Set RegularExpressionObject = nothing
End Function