[Resolvido]Tabela em HTML em formulário

Olá a todos!

Tenho um rotina no sistema que manda e-mail para o usuário. Nesse e-mail é gerada uma tabela em html que é enviada no corpo da mensagem do e-mail.

Até aí tudo bem. O e-mail está enviando certinho com a tabela normal, bonitinha, no e-mail.

O problema é que preciso mostrar ao operador como está a mensagem antes de enviar por e-mail. Tentei mostrar a mensagem do e-mail em um campo caixa de texto Rich Text, mas a tabela sai desarrumada em uma única linha.

Segue um exemplo:

Private Sub Comando212_Click()
Dim varMensagem, Cab, Corpo, Fecho, Linha1, linha2, linha3, linha4, linha5 As String

Cab = "Exemplo de tabela em html, segue abaixo: <br><br><table><caption><center><b>EXEMPLO</b></center></caption><tr><td><b>NUM</b></td><td><b>FRUTAS</b></td><td><b>LEGUMES</b></td><td><b>VERDURAS</b></td></tr>"
Linha1 = "<tr><td><b>1</b></td><td><b>Abacaxi</b></td><td><b>Beterraba</b></td><td><b>Alface</b></td></tr>"
linha2 = "<tr><td><b>2</b></td><td><b>Maçã</b></td><td><b>Cenoura</b></td><td><b>Coentro</b></td></tr>"
linha3 = "<tr><td><b>3</b></td><td><b>Morango</b></td><td><b>Beringela</b></td><td><b>Couve</b></td></tr>"
linha4 = "<tr><td><b>4</b></td><td><b>Goiaba</b></td><td><b>Pepino</b></td><td><b>Salsa</b></td></tr>"
linha5 = "<tr><td><b>5</b></td><td><b>Laranja</b></td><td><b>Chuchu</b></td><td><b>Espinafre</b></td></tr>"
Fecho = "<tr><td></td><td></td><td></td><td></td></table>"
   
varMensagem = Cab & Linha1 & linha2 & linha3 & linha4 & linha5 & Fecho

txt_texto.Value = varMensagem


End Sub

Aguardo ajuda.

Olá Bricio,
Pode resolver criando um ficheiro temporario com o codigo html, exemplo tmp.htm e abra com o exemplo abaixo que resolve:
https://www.maximoaccess.com/t26904-webbrowser-controle-navegador

Veja como fica:


Abraço

Alvaro, obrigado pela dica.

Utilizei mesmo o Web Browser, mas não precisei criar o arquivo para ler. Utilizei uma variável.

Resolvido!

Olá Bricio,
Fico feliz por ter ajudado.
Obrigado pelo retorno.
Abraço