Olá Pessoal,
No codigo abaixo tentei reproduzir uma expressão matemática mas, o cálculo não gera nem resultado e a TextBox6 fica vazia, veja:
Private Sub CommandButton1_Click()
On Error Resume Next '
TextBox6 = Format(CDbl(TextBox1) / CDbl(TextBox2) * CDbl(TextBox3) + CDbl(TextBox4) / CDbl(TextBox5), "R$#,##0.00")
End Sub
valeu!!!
Postado : 02/11/2013 9:13 pm