generating text box value based on equation from other boxes

[Craig]

I've got an invoicing macro that totals 4 amount boxes and a amount
paid box (input boxes on the form). I'm trying to get the total box to
update based on the amounts in this box, but i keep getting a type
mismatch, here's what i have for the change events on the five inpute
boxes

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
BalanceDueAmountBox.Value = ((FirstAmtBox.Value * 1) +
(SecondAmtBox.Value * 1) + _
(ThirdAmtBox.Value * 1) + (FourthAmtBox.Value * 1) -
(AmtPaidBox.Value * 1))
End Sub

any suggestions?

 

[Leith Ross]

Hello Craig,

Try this...

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim AmountDue
AmountDue = CCur(FirstAmtBox.Text ) +
CCur(SecondAmtBox.Text ) + _
CCur(ThirdAmtBox.Text ) + CCur(FourthAmtBox.Text) -
CCur(AmtPaidBox.Text)
BalanceDueAmountBox.Text = Format(AmountDue, "Currency")
End Sub

Sincerely,
Leith Ross

 

[C01d]

Your code seems to run fine. You might want to check that you have named
your textboxes correctly as using a wrong name will cause a new variable
to be declared. This new variable will be given the Variant type,
causing the type mismatch error.