Edit your two constants to:
[VBA] Const strHeader_c As String = "<html><body><font size=""3"" color=""#FF0000""><pre>" & vbNewLine
Const strFooter_c As String = vbNewLine & "</pre></font></html></body>"
[/VBA]