Problemas Com Soma

[piter_sp 0]

fiz um programinha para somar valores porem ,ele até soma mais ignora valores depois da virgula ,como faço pra abilitar a soma de valores como de dinheiro no formato 00,00se eu somar 2,00 + 2,50 ele vai me dar o resultado 4 ao inves de 4,50 o programinhaIf prec >= 0 Thentot = Val(tot.Text) + Val(prec.Text)msg.Caption = totElsemsg.Caption = "digite um Valor valido"End IfEnd Subagradeceria muito se me ajudassem - piter20@uol.com.br

[cassitos 2]

OU

tot = CDbl(tot.Text) + CDbl(prec.Text)

converte o texto para um valor tipo Double.