Function HTMLFormat(sText)
dim Text
if sText<>"" then
Text = sText
Text = Replace(Text, "&", "&")
Text = Replace(Text, "<", "<")
Text = Replace(Text, ">", ">")
Text = Replace(Text, " ", " ")
Text = Replace(Text, vbCrLf, "<br>")
HTMLFormat = Text
else
HTMLFormat = sText
end if
End Function