Fernandox,

Bom dia!

Pedimos, por gentileza, ao postar códigos VBA aqui no fórum, utilizar a ferramenta CODE existente logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua dúvida, creio que você não consegue alinha somente um dos campos do ListBox à direita como quer. Você pode alinha todos à direita da seguinte forma:

With lbDados
                 .AddItem
                 .List(linhalistbox, 3) = Sheets("TabVendas").Cells(linha, 4) 'Produto
                 .List(linhalistbox, 5) = Format(Sheets("TabVendas").Cells(linha, 7), "###,##0.00") 'Preco
                 .List(linhalistbox, 5).TextAlign = fmTextAlignRight
                 linhalistbox = linhalistbox + 1
             End With

Ola Wagner, grato pelas orientacoes, vou aprendendo as regras do forum, quanto ao codigo tenho inserido conforme havia descrito e ocorreu uma mensagem de erro nesta linha
.List(linhalistbox, 5).TextAlign = fmTextAlignRight

ERRO: O objeto e obrigatorio
grato pela ajuda, abraco

Opa! Desculpe o meu erro!

Troque a linha:

.List(linhalistbox, 5).TextAlign = fmTextAlignRight

Pela linha:

.TextAlign = fmTextAlignRight

Ola Wagner, funcionou a linha perfeitamente, so que alinhou todos os campos, eu gostaria que apenas o campo PRECO fosse alinhado pelo lado direito o restante dos campos permanecessem do lado esquerdo, quando puder orientar, agradeco, obrg abraco

Fernandox,

Como eu disse no meu primeiro posto, creio que no objeto ListBox não é possível alinha somente um dos campos. Somente todos.