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