Программирование алгоритмов циклической структуры

[ЭльвинаСС]

здраствуйте!у меня такая проблема.в решении задачи все вроде получается..только вот в макросе выдается не то значение..которое нужно.посмотрите пожалуйста,буду очень благодарна.
задача:
Начислить сумму износа по объекту основных средств за 6 месяцев, если дана первоначальная стоимость объекта, годовая норма в %, используя формулу:
износ за 1 месяц = первонач.стоимость*норму годовую/12 мес
т.е. I = S * N/12
где
I - сумма износа за месяц;
S - первоначальная стоимость;
N - норма годовая (8.9%).
мое решение:
Sub çàäà÷à()
S = InputBox("Ââåäèòå çíà÷åíèå S")
N = InputBox("Ââåäèòå çíà÷åíèå N")
i = 6
For v = 1 To 6
v = v + S * N / 12
Next v
MsgBox v
End Sub