Программа расчета суммы ежемесячного платежа - VB

Формулировка задачи:

Банк выдает ссуды гражданам на L лет под G% годовых на приобретение недвижимости. Должник обязан ежемесячно выплачивать равными долями долг вместе с процентами. Составить программу расчета суммы ежемесячного платежа для различных размеров ссуды, исходя из условия, что указанная в договоре ставка должна совпадать с месячной эффективной ставкой потока платежей, т.е. должно выполняться условие: где С – ссуда, предоставляемая банком, руб.; Р – ежемесячные платежи, руб.; t – месяц выплаты, мес.; N – количество месяцев выплаты долга, мес.; r – месячная ставка, доли ед.; Из формулы [1] получаем формулы расчета суммы ежемесячного платежа: (где G – годовая ставка, %.) N=L*12 (где L – количество лет, на которые выдана ссуда.) Годовая ставка G и количество лет L вводятся пользователем. Помогите пожалуйста с кодом на бейсике .

Решение задачи: «Программа расчета суммы ежемесячного платежа»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
l = InputBox("годы")
n = l * 12
g = InputBox("процентная ставка")
r = g / 100 / 12
c = InputBox("ссуда")
s = 0
For i = 1 To n
 s = s + 1 / (1 + r) ^ i
Next i
 MsgBox "Плати - " & Int(c / s) & ", Доход банка спекулянта в месяц или ваша переплата - " & Int(c / s - c / n)
 
 
End Sub
                        