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