Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Calculating a mortgage payment
Sub PmtCalc()
    Dim IntRate As Double
    Dim LoanAmt As Double
    Dim Periods As Integer
    IntRate = 0.0825 / 12
    Periods = 30 * 12
    LoanAmt = 150000
    MsgBox WorksheetFunction.pmt(IntRate, Periods, LoanAmt)
End Sub