Remover tag de un html

[Mecenias]

Una vez me baje esta funcion pero no la he probado, espero que lo hagas tu y nos digas si funciona o hay que modificarla
<pre>

''By Steven Smith
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = &quot;&lt;[^&gt;]*&gt;&quot;
RegEx.Global = True
strText = Replace(LCase(strText), &quot;&lt;br&gt;&quot;, chr(10))
RemoveHTML = RegEx.Replace(strText, &quot;&quot;)
End Function
</pre>


Nos cuentas, vale?