Public Function LoanCriteria(loanAmt As Single, numPayments As Integer, _
moPayment As Integer, totInterest As Single) As Boolean
If Abs(moPayment) > 400 Then
LoanCriteria = False
ElseIf Abs(totInterest) > (0.1 * loanAmt) Then
LoanCriteria = False
ElseIf numPayments > 48 Then
LoanCriteria = False
Else
LoanCriteria = True
End If
End Function
|