Gracias Shiryu

, lo probé y intenté hacerle algunas modificaciones, pero no fui capaz de hacer que resultará, así que he montado estas expresiones que "funcionan" a no ser que el usuario sea un zoquete
Código asp:
Ver originalobjRegExp.Pattern = "(<)([^>]+(/)?[^>])"
texto = objRegExp.Replace(texto, "<$2")
objRegExp.Pattern = "(<)([^>]+>)"
texto = objRegExp.Replace(texto, "<$2")
objRegExp.Pattern = "(<)([^>]+<)"
texto = objRegExp.Replace(texto, "<$2")
Funciona con una cada como esta
Cita: <esto es una prueba de <b>ilustracion</b>, de lo mismo que intentamos <h1> intentar</h1>, intentando lo mesmo que <font color="#00FFff">intent<amos</font><, no creen????
De nuevo gracias por vuestro interés y tiempo

. Espero que a alguien le sea válido