Oh why can't I get SIMPLE math right?
Code:
'PROCESSING:
Do While intCounter <= 10
curInterest = curInterestRate * curBalance
curBalance = curBalance + curInterest
curBalance = (curBalance - (curMonthlyRepayment * 12)) - curDeposit
lstAnswer.AddItem "End of Year " & intCounter & " " & FormatCurrency(curBalance)
intCounter = intCounter + 1
Loop
If curBalance = 0 Then
lstAnswer.AddItem "You will pay this off in " & intCounter & " Years"
End If
If curBalance > 0 And intCounter = 10 Then
MsgBox "You are geting ripped", vbExclamation, "RIP OFF ALERT!"
End If
The code isn't the problem. It's my stupid math abilities.