Private Function NormalizeCode(ByVal code As String) As String
        'Replace font
        Dim step1 As String = code '.Replace("monospace", """Courier New""")
        'Build a string of style
        Dim style As String = "</style>"
        style &= "<font color=""" & Drawing.ColorTranslator.ToHtml(My.Settings.FontColor) & """ "
        style &= "size=""" & My.Settings.FontSize & """><div dir=""ltr"" "
        Dim step2 As String = step1.Replace("</style><div ", style)
        Dim step3 As String = step2.Replace("</ol></div>", "</ol></div></font>")
        Dim step4 As String = step3.Replace("<ol>", String.Empty).Replace("</ol>", String.Empty)
        Dim step5 As String = step4.Replace("<li class", "<div font-face=""courier new"" class").Replace("</li>", "</div>")
        Return step5
    End Function