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