Sub loanPayment()
Dim dblRate As Double
Dim intTerm As Integer
Dim dblPrincipal As Double
Dim dblPayment As Double
Dim strFormat As String
dblRate = 0.075
intTerm = 5
dblPrincipal = 75000
strFormat = "$###.##"
dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal)
msgBox "The monthly payment is: " & Format(dblPayment, strFormat)
End Sub