CheckVersion.SendMailToX("Program Version may be Wrong", _
                                     "Dear All:" & vbNewLine & _
                                     File.Substring(21, File.Length - 21) & vbNewLine & _
                                     mSTART & vbNewLine & _
                                     "该程序的测试版本异常" & vbNewLine & _
                                     "ProgramName=  " & ProgramName & vbNewLine & _
                                     "数据库中ProgramVersion定义为=  " & dt.Rows(0).Item("Program_Version") & vbNewLine & _
                                     "文件中读出的ProgramVersion为=  " & mSplit(5))
以上是发送mail的过程（用写的,C#差不多）
mail格式是text的，下文是mail中受到的结果

Dear All:

AB1234AF2H_PASS_20101022110103.txt
STOP//PASS///0.0.0.2//ABC011/212//////////Agilent Technologies/
该程序的测试版本异常
ProgramName=  ASDF/FIRST/
数据库中ProgramVersion定义为=  1.0.0.1
文件中读出的ProgramVersion为=  0.0.0.2

假如我要得到这样的html效果
AB1234AF2H_PASS_20101022110103.txt
STOP//PASS///0.0.0.2//ABC011/212//////////Agilent Technologies/
该程序的测试版本异常
ProgramName=  ASDF/FIRST/
数据库中ProgramVersion定义为=  1.0.0.1
文件中读出的ProgramVersion为=  0.0.0.2

CheckVersion.SendMailToX(title,body)该如何修改，尤其是变量。

提示一下啊，各位路人。