vbscript怎么将html文本内容转换成纯文本内容

vbscript如何将html文本内容转换成纯文本内容？
就像我们将一个网页内容复制，粘贴到记事本中一样。
如果一段html文本代码：
<p><b>欢迎</b>访问<a href="http://www.baidu.com">百度</a>!您<font color="#FF00FF">可以</font>在<a href="http://zhidao.baidu.com">百度知道</a>中提问题。</p>

转换成纯文本就变成了：
欢迎访问百度!您可以在百度知道中提问题。

请问这样的vbscript应该如何编写。要求用vbscript。

[解决办法]
var str="<p> <b>欢迎 </b>访问 <a href="http://www.baidu.com">百度 </a>!您 <font color="#FF00FF">可以 </font>在 <a href="http://zhidao.baidu.com">百度知道 </a>中提问题。 </p>";

var re=/\<[^\>]*\>/g;
alert(str.replace(re,""));
[解决办法]
1楼的是Javascript用法，我来VBScript的：

VBScript code

'***********************************************************************************************'用正则表达式匹配替换字符串，返回替换后的字符串，匹配尽可能多次。'regPattern: 匹配模式；regString: 待匹配字符串；subString: 用来替换的字符串。'***********************************************************************************************Function RegReplaceAll(regPattern, regString, subString)    Dim myRegExp    Set myRegExp = New RegExp    myRegExp.pattern = regPattern    myRegExp.IgnoreCase = True    myRegExp.Global = True    myRegExp.MultiLine = True    RegReplaceAll = myRegExp.Replace(regString, subString)End Function    SourceHTML = "<p> <b>欢迎</b>访问<a href=""http://www.baidu.com"">百度</a>!您<font color=""#FF00FF"">" _        & "可以</font>在<a href=""http://zhidao.baidu.com"">百度知道</a>中提问题。</p> "    re = "<[^>]*>"    Msgbox RegReplaceAll(re,SourceHTML,""),,"HTML中的文本内容"
[解决办法]
探讨

1楼的是Javascript用法，我来VBScript的： 


VBScript code'***********************************************************************************************
'用正则表达式匹配替换字符串，返回替换后的字符串，匹配尽可能多次。
'regPattern: 匹配模式；regString: 待匹配字符串；subString: 用来替换的字符串。
'**********************************************************************************************…