Bom dia!!

Temos muita coisa na base de dados!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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