Olá galera,

Sou novato em VBA e preciso da ajuda de vcs.

Tenho um trabalho onde preencho os campos textbox1,textbox3,textbox4,textbox5,textbox6 e textbox7, e clico em calcular e faz o calculo perfeitamente.

Porem estou com dificuldade porque ele não soma os centavos.

Segue código abaixo, me ajudem a identificar onde esta o erro e corrigir ( lembrando que sou novo nisso e estou aprendendo rs)

Private Sub CommandButton1_Click()

TextBox8.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text)
TextBox9.Text = (TextBox8) / 0.82
TextBox11.Text = (TextBox9) / 100
TextBox12.Text = (TextBox11) * 70
TextBox10.Text = Val(TextBox12.Text) - Val(TextBox9.Text)
TextBox13.Text = (TextBox12) * 18
TextBox16.Text = TextBox17.Text + TextBox17.Text + Label18 + Label20 + Label21 + Label22 + Label23 + Label24 + Label25 + Label26 + Label27 + Label28 + Label29 + Label30 + Label31 + Label32 + Label33

TextBox8.Text = Format(TextBox8, "R$ #,##0.00;(#,##0.00)")
TextBox9.Text = Format(TextBox9, "R$ #,##0.00;(#,##0.00)")
TextBox11.Text = Format(TextBox11, "R$ #,##0.00;(#,##0.00)")
TextBox12.Text = Format(TextBox12, "R$ #,##0.00;(#,##0.00)")
TextBox10.Text = Format(TextBox10, "R$ #,##0.00;(#,##0.00)")
TextBox13.Text = Format(TextBox13, "R$ #,##0.00;(#,##0.00)")
TextBox16.Text = Format(TextBox16, "R$ #,##0.00;(#,##0.00)")

End Sub