Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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