el codigo que estoy haciendo es algo asi, pero lo tendria que hacer con los <a > </a> ...... y todos los demas
fuction cambiarhtml
mensaje=replace(mensaje,"<","&_lt;")
mensaje=replace(mensaje,">","&_gt;")
mensaje=replace(mensaje,"""","")
mensaje=replace(mensaje,"'","''")
mensaje=replace(mensaje,"<br/>","")
mensaje=replace(mensaje,"<ul>","")
mensaje=replace(mensaje,"</ul>","")
mensaje=replace(mensaje,"<ol>","")
mensaje=replace(mensaje,"</ol>","")
mensaje=replace(mensaje,"<li>","")
mensaje=replace(mensaje,"</li>","")
mensaje=replace(mensaje,"<b>","")
mensaje=replace(mensaje,"</b>","")
end function