Olá colega, claro quando possivel se cadastre mas vai ai uma dica, basta vc formatar os campos a soma faz parte ou seja faça desta forma:
Ex:
coloque isto no evento lostfocus do tanto do text1 como do text2
Private Sub text1_lostfocus()
Text1.Text = Format(Text1.Text, "currency")
End Sub
Private Sub text2_lostfocus()
Text2.Text = Format(Text2.Text, "currency")
End Sub
e no evento gotfocus do text3
Private sub text1_gotfocus()
Dim Valor1 as Integer
Dim Valor2 as Integer
Valor1=Text1.text
Valor2=Text2.text
text3.text= Format((Valor1+Valor2), "currency")
End Sub
e pronto soma feita corretamente
valeu
