Почему этот цикл останавливается после первого прохода?

Question

Я хочу, чтобы моя функция перебиралась определенное количество раз, прежде чем она даст мне ответ.Это останавливается после первого цикла.Я хочу, чтобы он прошел через цикл «PerInq», прежде чем дать мне ответ.У меня есть ряд математических задач, которые нужно делать последовательно, чтобы получить правильный ответ.Ниже мой код:

Function IntFinder(PVLoan, APR, PMT_Freq, Term, PerInq)
n = PMT_Freq * Term
R = APR / PMT_Freq
PMT1 = Pmt(R, n, -PVLoan)
Intrest = PVLoan * R
Prin = PMT1 - Intrest
Bal = PVLoan - Prin
BalSum = 0
For counter = 1 To counter = PerInq
    Intrest = R * Bal
    Prin = PMT1 - Intrest
    Bal = Bal - Prin
    counter = counter + 1
Next counter
IntFinder = Intrest
End Function