Como enviar e.mails pelo VB no formato HTML?

Por favor. Se alguém souber me avise.

Só não funciona quando eu recebo este email pelo Otlook!

Eu fiz o seguinte:

Option Explicit
Dim BancoDeDadosAurotur As Database
Dim TabelaEMail As Recordset
Dim TabelaOrcamentoAereo As Recordset

Private Sub CmdEnviar_Click()
   MAPISession1.LogonUI = True
   MAPISession1.SignOn
   MAPIMessages1.SessionID = MAPISession1.SessionID
   MAPIMessages1.Compose
   MAPIMessages1.RecipIndex = 0
   MAPIMessages1.RecipAddress = TXTA1.Text '//"emaildap@provedor.com.br"
   MAPIMessages1.RecipType = 1
   '// Assunto
   MAPIMessages1.MsgSubject = "Envio automático de E-Mail"
    '// Informa anexo
   If TXTA3.Text <> "" Then
   MAPIMessages1.AttachmentIndex = 0
   MAPIMessages1.AttachmentPathName = TXTA3.Text
   MAPIMessages1.AttachmentPosition = 0
   End If
   '// Conteudo da mens
   MAPIMessages1.MsgNoteText = TXTA4.Text
   MAPIMessages1.Send False
   MAPISession1.SignOff
End Sub

Private Sub Form_Load()
Set BancoDeDadosAurotur = OpenDatabase(App.Path & "Bdaurotur.mdb")
Set TabelaEMail = BancoDeDadosAurotur.OpenRecordset("tbemail", dbOpenTable)
Set TabelaOrcamentoAereo = BancoDeDadosAurotur.OpenRecordset("tborcamentoaereo", dbOpenTable)

If TabelaOrcamentoAereo.EOF = True Then
MsgBox ("Você não possui clientes cadastrados!"), vbExclamation, "Verificando Registros"
GoTo finaliza
End If

    TabelaOrcamentoAereo.Index = "a1"
    Dim procuraCod As String
    procuraCod = FrmOrcamentoAereo.TXTA1
    TabelaOrcamentoAereo.Seek "=", procuraCod
        If TabelaOrcamentoAereo.NoMatch = True Then
        MsgBox ("Cliente não cadastrado!")
        TabelaOrcamentoAereo.MovePrevious
        End If
'// Montando Mensagem

TXTA4.Text = "<html><body>texto do email " + TabelaOrcamentoAereo("a8") + "Continua texto do emal</body></html>"

finaliza:
End Sub

Eu só não consigo ler o E.mail no formato html quando eu recebo pelo Outlook.

Obrigado.....