Function HtmlEscape(strRawData) 'As String
'Escapes data to make it html-safe
Dim strHtmlEscape 'As String
strHtmlEscape = strRawData
strHtmlEscape = Replace(strHtmlEscape, "&", "&")
strHtmlEscape = Replace(strHtmlEscape, "<", "<")
strHtmlEscape = Replace(strHtmlEscape, ">", ">")
strHtmlEscape = Replace(strHtmlEscape, """", """)
strHtmlEscape = Replace(strHtmlEscape, vbCrLf, "
")
strHtmlEscape = Replace(strHtmlEscape, vbCr, "
")
strHtmlEscape = Replace(strHtmlEscape, vbLf, "
")
strHtmlEscape = Replace(strHtmlEscape, vbTab, " ")
strHtmlEscape = Replace(strHtmlEscape, " ", " ")
HtmlEscape = strHtmlEscape
End Function