Formatação de mensagem box

Bom dia a todos,

Procurei mais não encontrei como utilizar o format, left e right juntos para solucionar o meu caso.

Dim Qnt, Pro, Pre, D As string

Qnt = "99" ' Tamanho maximo 2 Caracteres + espaço
Pro = "MOUSE OPTICO" ' Tamanho maximo 28 caracteres - espaço
Pre= "R$ 000,00" 'Tamanho maximo9 Caracteres
D = "Nada especifico" 'Tamanho maximo 39 caracteres - TAB

'39 caracteres

MsgBox "O Texto tem o seguinte formato: " & Format(Qnt, Left(2 caracteres + tab) & And Pro(Right Maximo 28 caracteres - Tab da Qnt) & And(Pre(Right 9 caracteres - Tab) & vbCrLf & D

Agradeço a todos.

Boa tarde!

Poderia dizer qual objetivo ?

eu não entendi!

Na verdade o objetivo é exportar neste formato para o Word mas se aparecer em uma mensagem neste formato ja vai dar certo

ve se funciona

Código:

Dim Qnt, Pro, Pre, D As String

Qnt = "99" ' Tamanho maximo 2 Caracteres + espaço
Pro = "MOUSE OPTICO" ' Tamanho maximo 28 caracteres - espaço
Pre = "R$ 000,00" 'Tamanho maximo9 Caracteres
D = "Nada especifico" 'Tamanho maximo 39 caracteres - TAB

MsgBox "O Texto tem o seguinte formato: " _
& left(Qnt, 2) & " " _
& right(Pro, 28) & " " _
& right(Pre, 9) & " " _
& vbCrLf & D


Boa tarde Nois,

Bom como disse logo antes da publicação faltei com informações, o objetivo final é enviar para o Word, achei que uma mensagem box suportaria o tamanho de 39 caracteres e nao suporta
A questão é que o texto continua desformatado.
Sai algo do tipo:

Quant........Produto..............Preco
1..............Mouse optico......R$ 1,99
34.........Teclado.......R$ 33,50
2.....................Monitor.........R$ 200,00

'Sem os pontos é que no fórum também corta os espaços
A questão é que sai desformatado, busco algo do tipo:

Quant........Produto..................Preco
1...........Mouse optico............R$.....1,99
34.........Teclado....................R$....33,50
2...........Monitor.....................R$ 200,00

Estou nos testes aqui mais com dificuldades em alguns pontos, o primeiro campo e o ultimo.
A quantidade vai ter no maximo 2 campos e precisa pular 2 para começar o produto e o preço deve começar no mesmo "Tab" todos só que acaba que
O Produto começa desalinhado e o preço varia com a quantidade de letras do produto entao nao fica alinhado

Right(Qnt, 4) & " " & Pro & Chr(9) & Chr(9) Pre & vbCrLf & D

bom se nao tem um padrão eu nao tenho conhecimento para te ajudar
com relação a msgbox de uma olhada nesse exemplo

https://www.maximoaccess.com/t2390-msgboxex-personalizada-com-seu-icone-texto-dos-botoes-permitindo-icoes-e-gif-s?highlight=msgboxex

aceitou essa quantidade de caracteres que fiz o teste