As I could send a message containing HTML from VB 6.0, I can send the message but I can not with HTML

Open "path where the txt file is" "For Input As # 1
Dim Line As, Total As String
Make up to EOF (1)
Line entry No. 1, line
Total = Total + Line + vbCrLf
Loop
Close # 1

Open "location where it is in the .txt footer of the message" For Input As # 1
Dim Linea2 As String, Foot As String
Make up to EOF (1)
Line entry # 1, line 2
foot = foot + Line2 + vbCrLf
Loop
Close # 1

Set oMail = New clsCDOmail

With oMail
& # 39; data to send
.server = "xxxxxxxxxxxxxx"
.port = xxxx
.UseAunnication = True
.ssl = True
.IsBodyHtml = True
.User = "xxxxxxxxxxxxxxxxxxxxxxxxxx"
.PassWord = "xxxxxxxxxx"

.Subject = "Proof of the message"
.Adjunto = xxxxx first itinerary
.Adjunto2 = xxxxx second road

.de = "xxxxxxxxxx"
.para = "xxxxx"
.Message = Total & foot


. Send_Backup & send email

End with

Set oMail = Nothing