OLá meu amigo.
Segue abaixo uma forma bem simples.
Private Sub TextBox1_afterupdate()
' caso queira que retorne o formato só com duas casas decimais use o
'formato Format(TextBox1, "#,##0.00;(#,##0.00)")
TextBox1 = Format(TextBox1, "#,##0.0000;(#,##0.0000)")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "#,##0.0000;(#,##0.0000)")
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4 = Format(TextBox4, "#,##0.0000;(#,##0.0000)")
End Sub
Private Sub CommandButton1_Click()
'botão para Calcular
Dim x As Double
Dim y As Double
Dim z As Double
x = TextBox1.Text
y = TextBox2.Text
z = TextBox3.Text
TextBox4.Text = x + y + z
TextBox4 = Format(TextBox4, "#,##0.0000;(#,##0.0000)")
End Sub
Postado : 16/05/2015 11:41 am