Funcion para evitar codigo HTML

[Ascariz]

al final me quedo con esta que me bienen mejor

Function MirarHTML(mensaje)
mensaje=replace(mensaje,"""","")
mensaje=replace(mensaje,"'","''")
mensaje=replace(mensaje,"&","&#38")
mensaje=replace(mensaje,"/","&#47")
mensaje=replace(mensaje,":","&#58")
mensaje=replace(mensaje,";","&#59")
mensaje=replace(mensaje,"<","&#60")
mensaje=replace(mensaje,">","&#62")
mensaje=replace(mensaje,"\","&#92")
mensaje=replace(mensaje,"select","")
mensaje=replace(mensaje,"insert","")
mensaje=replace(mensaje,"update","")
mensaje=replace(mensaje,"delete","")
mensaje=replace(mensaje,"drop","")
mensaje=replace(mensaje,"create","")
mensaje=replace(mensaje,"join","")
mensaje=replace(mensaje,"-shutdown","")
mensaje=replace(mensaje,"""","")
MirarHTML = mensaje
end Function