Dim MontlyPay As Double
Dim Rate As Single = (6.75 / 100) / 12 'Räntan delat på 100 och delat på 12 för att det är per månad
Dim Duration As Integer = 7 * 12 '7 år gånger 12 månader
Dim Amount As Single = 10000 'Totala summan av lånet
MontlyPay = Pmt(Rate, Duration, Amount)
MsgBox("Månads kostnaden blir " & -MontlyPay & vbCrLf & _
"Totalt återbetalat blir " & -MontlyPay * Duration)