正则表达式清除字符串或网页中的html源代码

function delhtml(strHTML)'
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'objRegExp.Pattern = "(\<t|\<a|\<d|\<f|\<p|\<\/a|\<\/t|\<\/p|\<\/d|\<\/f).*?>"'"<.+?>"
objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
strHTML=replace(strHTML,match.value,"")
Next
delhtml=strHTML
Set objRegExp = Nothing
set Matches=nothing
end function