Function HTMLcode(byval fstring)
fstring=replace(fstring,">",">")
fstring=replace(fstring,"<","<")
fstring=replace(fstring,chr(32),"")
fstring=replace(fstring,chr(9),"")
fstring=replace(fstring,chr(34),"'")
fstring=replace(fstring,chr(39),"'")
fstring=replace(fstring,chr(13),"")
fstring=replace(fstring,chr(10) & chr(10),"</p><p> ")
fstring=replace(fstring,chr(10),"<br> ")
HTMLcode=fstring
End Function