Conversion vers HTML

' cvt en html sauf ligatures e
function cvhtml(a)
dim s
s = a
s = replace(s, "&", "&")
s = replace(s, "é", "é")
s = replace(s, "ó", "ó")
s = replace(s, "ú", "ú")
s = replace(s, "à", "à")
s = replace(s, "è", "è")
s = replace(s, "ù", "ù")
s = replace(s, "Á", "Á")
s = replace(s, "É", "É")
s = replace(s, "Ó", "Ó")
s = replace(s, "À", "À")
s = replace(s, "ê", "ê")
s = replace(s, "î", "î")
s = replace(s, "ô", "ô")
s = replace(s, "û", "û")
s = replace(s, "ç", "ç")
s = replace(s, "ë", "ë")
s = replace(s, "ï", "ï")
s = replace(s, "ö", "ö")
s = replace(s, "ü", "ü")
s = replace(s, "Ö", "Ö")
cvhtml = s & "<br>"
end function