codice:
Function NoHtml(campo)
dim no_html
no_html=Replace(campo, "<", "& #60;") 
no_html=Replace(no_html, ">", "& #62;")
no_html=Replace(no_html, VbCrlf, "
")
NoHtml=no_html
End Function
replace è una funzione (quindi restituisce un valore) non una sub (che modifica il valore passato e/o fa operazioni grazie ad esso)