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


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=544532