Function AspHtml(HtmlStr)<br /> Set re = New RegExp<br /> re.Pattern =&quot;&lt;[^&gt;]+&gt;&quot;<br /> re.Global = True<br /> re.IgnoreCase = False<br /> re.MultiLine = True<br /> AspHtml= re.Replace(HtmlStr,&quot;&quot;)<br /> End Function