Sub mag()
Dim A As Double, B As Double, Ñ As Double, week As Integer
A = 1.34
B = 1.41
C = 1.47

week = 0
Do While week <= 3
    Zp1 = Zp1 + (25 * A) * 36
    week = week + 1
Loop
week = 0
Do While week <= 3
    Zp2 = Zp2 + (25 * B) * 36
    week = week + 1
Loop
week = 0
Do While week <= 3
    Zp3 = Zp3 + (25 * C) * 36
    week = week + 1
Loop

Zp1 = Zp1 * 0.18
Zp1 = Zp2 * 0.18
Zp1 = Zp2 * 0.18

Debug.Print " Zp1 = " & Zp1 & " Zp2 = " & Zp2 & " Zp3 = " & Zp3
MsgBox "Complite"
End Sub