Boa pessoal tudo bem?
Queria a ajuda de vocês para resolver um problema que to quebrando a cabeça
tem 2 textbox que devem se somar que é o TotalProdutos + ValorFrete = TotalCompra

Essa soma tem que levar em consideração o tipo de envio escolhido na combobox ENVIO para determinar se elas
deveriam se somar ou subtrair.

O codigo que estava tentando utilizar era:

TotalCompra.Value = ""

'Converte Valor Texto do Textbox para Numero
sVal1 = CLng(TotalProdutos)
sVal2 = CLng(ValorFrete)

    If ENVIO.Value = "Envio 1" Then TotalCompra.Value = Format(sVal1 + sVal2, "Currency")
    If ENVIO.Value = "Envio 2" Then TotalCompra.Value = Format(sVal1 + sVal2, "Currency")
    If ENVIO.Value = "Envio 3" Then TotalCompra.Value = TotalProdutos

só que eu estou tendo um problema o valor mostrado na textbox TotalCompra está mostrando
o valor arredondado

exemplo ser era para somar os valores R$10,25 + R$10,30 o que daria R$20,55 ela mostra R$ 20,00

Desde já agradeço a atenção de vocês estou deixando uma amostra da minha tabela em anexo

Muito obrigado