Sub loanPayment() Dim dblRate As Double Dim intTerm As Integer Dim dblPrincipal As Double Dim dblPayment As Double dblRate = 0.075 intTerm = 5 dblPrincipal = 7000 dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal) msgBox "The monthly payment is: " & dblPayment End Sub