Option Explicit
Dim a As Double
Dim b As Double
Dim c As Double
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
Text4.Text = (a + b + c)
End Sub
cmq se gli fai calcolare:
0.15 +
1.30 +
1.20
come soluzione darà: 2.65 (ovvero 3.05) è la stessa cosa scritta in modo diverso...
Cmq se nelle textbox metti i punti calcola il risultato lo stesso ma non mette il punto. Se metti le vergole al posto dei punti anche al risultato mette la virgola....
