[Resolvido]Campo de Acrescimo

Boa noite galera

Estou efetuando uns ajustes num sistema de pedidos.

Tem uma caixa de texto que eu insiro o acréscimo no total do pedido, ele está sendo formatado na hora de somar campo1 + campo2 mais soma somente os décimos do valor, o que pode ser?

Conseguii

Utilizei o seguinte código.
Me.txt_TotalPedido.Value = CDbl(Replace(Forms!frm_Vendas!lbl_Total.Caption, "R$ ", "")) + _
CDbl(Replace(Me.txt_Acrescimo.Text, "R$ ", ""))