i tool for converting to visual studio source code to colorized html

During the Spring Festival ,i have written a tool for converting  source code to HTML .

Following is  a  snapshoot :

For example:

source code:

Private Sub printEnder(iFileNumber As Integer)
    Print #iFileNumber, "</pre>"
    Print #iFileNumber, "</td>"
    Print #iFileNumber, "</tr>"
    Print #iFileNumber, "</table>"
    Print #iFileNumber, "<hr>"
'    Print #iFileNumber, "<p align=right style=" & Chr(34) & _
    "COLOR: yellow; FONT-WEIGHT: bold; FONT-SIZE: 8pt; _
    BACKGROUND-COLOR: #339900; FONT-VARIANT: normal;" & _
    Chr(34) & ">  Generate By Code2Html at " & Now
    Print #iFileNumber, "<p align=right style=" & Chr(34) & _
    "COLOR: white; FONT-WEIGHT: bold; FONT-SIZE: 8pt;" & Chr(34) & _
    "><a href="; Chr(34) & "mailto:ch21st@hotmail.com" & Chr(34) & _
    ">  Generate By Code2Html </span>at " & Now
   
    Print #iFileNumber, "</HEAD>"
    Print #iFileNumber, "</HTML>"

End Sub

After process:

Private Sub printEnder(iFileNumber As Integer) 

    Print #iFileNumber, "</pre>" 

    Print #iFileNumber, "</td>" 

    Print #iFileNumber, "</tr>" 

    Print #iFileNumber, "</table>" 

    Print #iFileNumber, "<hr>" 


'    Print #iFileNumber, "<p align=right style=" & Chr(34) & _


    "COLOR: yellow; FONT-WEIGHT: bold; FONT-SIZE: 8pt; _


    BACKGROUND-COLOR: #339900; FONT-VARIANT: normal;" & _


    Chr(34) & ">  Generate By Code2Html at " & Now

    Print #iFileNumber, "<p" align=right style="" & Chr(34) & _ 

    "COLOR:" white; FONT-WEIGHT: bold; FONT-SIZE: 8pt;"" & Chr(34) & _ 

    "><a" href=";" Chr(34) & "mailto:ch21st@hotmail.com" & Chr(34) & _ 

    ">"  Generate By Code2Html at "" & Now 

    

    Print #iFileNumber, "</HEAD>" 

    Print #iFileNumber, "</HTML>" 



End Sub 

--------