我写的是这样:
Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "(s+cript(.+?)\/s+cript>)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "(s+tyle(.+?)\/s+tyle>)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "[^>]*>"
originCode= reg.Replace(originCode, "")
ClearHTMLCode = originCode
End Function

不过有一些过滤不了！而且速度太慢！