Function Text2Html(strRawData) 'As String
'Makes text safe to display on a web page
Dim strText2Html 'As String
strText2Html = strRawData
strText2Html = Replace(strText2Html, "<", "<")
strText2Html = Replace(strText2Html, ">", ">")
strText2Html = Replace(strText2Html, "&", "&")
strText2Html = Replace(strText2Html, vbCrLf, "
")
strText2Html = Replace(strText2Html, vbCr, "
")
strText2Html = Replace(strText2Html, vbLf, "
")
strText2Html = Replace(strText2Html, vbTab, " ")
strText2Html = Replace(strText2Html, " ", " ")
Text2Html = strText2Html
End Function