Eu já usei isso uma vez, mas todas Textbox tem que estar com valores!
Private Sub CommandButton1_Click()
TextBox5.Text = Format(CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value), "#,####.#0")
End Sub
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 19/07/2017 5:29 am