Написать макрос в VBA

[Anton322]

Здраствуйте, вод собственно сама задача:
Банк предлагает 3 вида срочных вкладов: на 3 месяца под p1 процентов годовых, на 6 месяцев - под p2 и на год - под p3 процентов. Разработайте алгоритм и программу решения задачи, который определяет, какой из вкладов наиболее выгоден для вкладчика.
Вот код который я написал но при любом значении p1 p2 p3 мне показывает что первый вклад самый выгодный помогите найти ошибку.

Sub ege()
Dim i, n, k As Integer
Dim s, b, x, p1, p2, p3, z1, z2, z3
s = 1
b = 1
x = 1
p1 = Val(InputBox("p1="))
p2 = Val(InputBox("p2="))
p3 = Val(InputBox("p3="))
MsgBox "первый вклад"
For i = 1 To 3
s = s + s * (p1 / 100)
z1 = (s - 1) * 100
End
MsgBox "второй вклад"
For k = 1 To 6
b = b + b * (p2 / 100)
z2 = (b - 1) * 100
End
MsgBox "третий вклад"
For n = 1 To 12
x = x + x * (p3 / 100)
z3 = (x - 1) * 100
End
If z1 > z2 And z1 > z3 Then: MsgBox "первый вклад самый выгодный"
If z2 > z1 And z2 > z3 Then: MsgBox "второй вклад самый выгодный"
If z3 > z2 And z3 > z1 Then: MsgBox "третий вклад самый выгодный"
If z1 = z2 And z1 > z3 Then: MsgBox "первый и второй вклад самые выгодные"
If z2 = z3 And z2 > z1 Then: MsgBox "второй и третий вклады самые выгодные"
If z3 = z1 And z1 > z2 Then: MsgBox "первый и третий вклады самые выгодные"
Next
Next
Next
End Sub

Пожалуйста, оформляйте Ваш код согласно правилам.
Заранее спасибо всем кто сможет помочь.

[ViktorR]

p1, p2 и p3 - это годовые проценты.
Т.о. p1 и p2 надо бы поделить на 12.