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

Vía Steve Smith » »