Función, que hoy me ha sido muy útil, para eliminar las etiquetas html de una cadena de texto:
Function RemoveHTML ( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = ¨<[^>]*>¨
RegEx.Global = True
strText = Replace (LCase (strText), ¨
¨, chr (10))
RemoveHTML = RegEx.Replace (strText, ¨¨)
End Function
Por kelvet
