[Resolvido]Formatar para moeda

Boa noite a todos.
Alguém pode me dar uma luz para o valor da ValorUntario ir no formato moeda para a textbox segue abaixo o código. Está tudo ok só esse detalhe que pegou. Agradeço a ajuda desde já e tenham um Natal abençoado.


Private Sub txtPesquisa_Change()

Dim descricao, und As String
Dim cod, qtdEstoque, StqMin As Integer
Dim ValorUntario As Double

   lstProduto.RowSource = "SELECT codProduto, descricao, unidade, " & _
               "valorUnitario, qtdEstoque " & _
               "FROM Produto " & _
               "WHERE descricao Like '*" & txtPesquisa.Text & "*' " & _
               "ORDER BY Produto.descricao;"
   lstProduto.Requery
   
   
cod = Me.lstProduto.ListIndex + 1
Me.txtCodigo = Me.lstProduto.Column(0, cod)

descricao = Me.lstProduto.ListIndex + 1
Me.txtDescricao = Me.lstProduto.Column(1, descricao)
   
und = Me.lstProduto.ListIndex + 1
Me.txtUnidade = Me.lstProduto.Column(2, und)
   
ValorUntario = Me.lstProduto.ListIndex + 1
Me.txtValorUnitario = Me.lstProduto.Column(3, ValorUntario)
   
qtdEstoque = Me.lstProduto.ListIndex + 1
Me.txtQtdEstoque = Me.lstProduto.Column(4, qtdEstoque)
   
StqMin = Me.lstProduto.ListIndex + 1
Me.txtEstoqueMinimo = Me.lstProduto.Column(5, StqMin)
   

End Sub

Oi amigo formiga,manda os objetos envolvidos,sera mais facil.
Feliz natal..  

Feliz Natal

Veja é apenas converter uma variável para moeda antes de ir para a textbox.

Veja o código está em azul.

Opa amigão, isso mesmo blz.

Abçs.

Bom dia.

Já experimentou:

Código:


Me.txtValorUnitario = format(Me.lstProduto.Column(3, ValorUntario),currency)


BOAS FESTAS

Boa tarde DARTH desculpe não ter fechado o tópico já resolvi mesmo assim muito obrigado pela resposta e que Deus o abençoe.

Forte abraço e um Novo Ano cheio de projetos e realizações.