过滤掉html字符

Function UBBCode(strValue)
Dim RegExp
Set RegExp=New RegExp
RegExp.IgnoreCase =True
RegExp.Global=True
regexp.pattern="[<|〈](.[^\>|〉]*)[>|〉]"
strvalue=regexp.replace(strvalue,"")
Set RegExp=Nothing
UBBCode=strValue
'输出错误
set regEx=nothing
End Function