[Resolvido]Mascara de Moeda em TextBox

Bom dia feras.
Criei um formulário para controle de recebimento de contribuições da APM aqui da escola.
NEle tenho um textbox para cada mês onde, ao pesquisar o nome do aluno, deve-se preencher com os dados salvos na tabela.
Pois bem, tanto na tabela, como no form, esses campos estão como moeda, só que na hora que clico no nome do aluno, que está em um listbox, ele pega os valores correspondentes ao aluno, e preenche com o valor correto, porém, sem formatação de moeda. Por que isso acontece?

Abrasss!!!

Olá, acrescente o CCur antes do campo, por exemplo na listbox: CCur(Origem.NomeDoCampo)

Fala Beto, blz?

Usei a dica que me deu, mas tem um problema.
Quando o campo na tabela está vazio, ele da um erro "Tipos Incompatíveis".
Coloquei no loop de preenchimento das textbox.
Nos nomes que tem todos os meses preenchidos, OK. Mas nos que tem mês com valor em branco, da esse erro.
Veja como ficou a parte do código que preenche as textbox:

For intCont = 1 To 12
Me("txt" & intCont).Value = CCur(Me.lstAlunos.Column(intCont + 1, strLinha + 1))
Next intCont

O que faço neste caso.

Desde já agradeço a ajuda.

Abrasss!!!

Coloque um if na ação:
If IsNull(Me.CampoMeses) Then
Me("txt" & intCont).Value = Null
Else
For intCont = 1 To 12
Me("txt" & intCont).Value = CCur(Me.lstAlunos.Column(intCont + 1, strLinha + 1))
Next intCont
End If

Era tão simples que nem pensei. rs
Valeu Mestre.
Ficou assim:

For intCont = 1 To 12
If (Me.lstAlunos.Column(intCont + 1, strLinha + 1)) = "" Then
Me("txt" & intCont).Value = Null
Else
Me("txt" & intCont).Value = CCur(Me.lstAlunos.Column(intCont + 1, strLinha + 1))
End If
Next intCont


Abrass!!!

Ok, Agradecimento do fórum pelo retorno