[Resolvido]Escolha Formato Dólar ou Real

Boa tarde!

Tenho um formulário de orçamento, porém os orçamentos são feitos em Dólar ou Real. Mas estou com dificuldades em gerar estes formatos.
Ao iniciar um orçamento a pessoa irá escolher se será em Dólar ou Real, ai após a escolha os campos de preenchimento mudariam o formato, mas não esta funcionando, alguém saberia me explicar e me orientar a forma correta?

os campos são todos numérios e configurados conforme abaixo

Tamanho do Campo: Duplo
Formato: Número Geral
Casas Decimaiss: Automático

tente de duas formas

1º - Até converte, mas da erro nas casas decimais

Código:

If Me.TipoMoeda = "Real" Then

Me.VlMaoDeObra.Format = Format(Me.VlMaoDeObra, "R$ " & "#,##0.00")
Me.Imposto.Format = Format(Me.Imposto, "R$ " & "#,##0.00")
Me.Alimentacao.Format = Format(Me.Alimentacao, "R$ " & "#,##0.00")
Me.ValorTotal.Format = Format(Me.ValorTotal, "R$ " & "#,##0.00")

ElseIf Me.TipoMoeda = "Dólar" Then

Me.VlMaoDeObra.Format = Format(Me.VlMaoDeObra, "U$ " & "#,##0.00")
Me.Imposto.Format = Format(Me.Imposto, "U$ " & "#,##0.00")
Me.Alimentacao.Format = Format(Me.Alimentacao, "U$ " & "#,##0.00")
Me.ValorTotal.Format = Format(Me.ValorTotal, "U$ " & "#,##0.00")

End If

2ª - não altera nada

Código:

If Me.TipoMoeda = "Real" Then

Me.VlMaoDeObra = Format(Me.VlMaoDeObra, "R$ " & "#,##0.00")
Me.Imposto = Format(Me.Imposto, "R$ " & "#,##0.00")
Me.Alimentacao= Format(Me.Alimentacao, "R$ " & "#,##0.00")
Me.ValorTotal= Format(Me.ValorTotal, "R$ " & "#,##0.00")

ElseIf Me.TipoMoeda = "Dólar" Then

Me.VlMaoDeObra = Format(Me.VlMaoDeObra, "U$ " & "#,##0.00")
Me.Imposto = Format(Me.Imposto, "U$ " & "#,##0.00")
Me.Alimentacao = Format(Me.Alimentacao, "U$ " & "#,##0.00")
Me.ValorTotal= Format(Me.ValorTotal, "U$ " & "#,##0.00")

End If

Boa tarde, use assim na propriedade Format das caixas de textos que necessitar:
Para real:
SuaCaixaTexto.Format = "R$ #,###.00"

Para dolar:
SuaCaixaTexto.Format = "U$ #,###.00"

Marcelo,

Perfeito, obrigado.

Obrigado pelo retorno, o Fórum agradece.