(VB6) Somar valores decimais (3,50 + 3,50)

[Named]

Olá a todos!

Estou tentando fazer uma função que conforme o usuario for adicionando um item no carrinho ele some ao valor total.

Eu até já fiz isso...mais ele esta somando errado!

Por exemplo

Se o carrinho estiver com 1 item ele soma R$ 3,50 ao valor total

Se adiciono outro item de R$3,50 ele mostra R$6 ao invés de R$7,00 e tambem não mostra o ,00

Como faço para arrumar isso?

valeu desde já

[jefersonap]

Você Declarou as variaveis como real ou como inteiro?

[Named]

Eu fiz isso

If lbltotal.Caption = "" Then

lbltotal.Caption = Format("3,50", "#.#0")

Else

lbltotal.Caption = Val(lbltotal.Caption) + Val("3,50")

End If

[csilvano]

Substitui:

===========================================

lbltotal.Caption = Val(lbltotal.Caption) + Val("3,50")

============================================

por:

=======================================================

lbltotal.Caption = Format( (lbltotal.Caption) + Val("3,50") , "#,##")

=======================================================

[Named]

Olá!

Obrigado pelas respostas!

Consegui fazer o que queria a partir do seguinte código

txttotal.Text = Format(CDbl(rs("valor")), "Currency")
txttotal.Text = Format(CDbl(txttotal.Text) + CDbl(rs("valor")), "Currency")

com isso ele soma os valores corretamente e adiciona o R$ (ele faz isso de acordo com as configurações regionais do computador)