VBA Определить Z с точностью e.

[METFIss]

Условие: Даны y, a, e; |y|<1
Определить Z с точностью e.

Z= y/a - y^2/a^2 + y^3/a^3 - ...

я что-то написал, но похоже на бред.

Private Sub CommandButton1_Click()
    Dim s As Integer
    Dim z As Integer
    Dim y As Integer
    Dim a As Integer
    Dim e As Integer
    Dim i, n As Byte
    y = TextBox1
    a = TextBox2
    e = TextBox3
    s = 0
    n = 0
    z = 0
    Do While z <= e
        z = z + (y ^ (n + 1)) / (a ^ (n + 1)) - (y ^ (n + 1)) / (a ^ (n + 1)) + (y ^ (n + 1)) / (a ^ (n + 1))
    Loop
    TextBox4 = z
End Sub

[Аватар]

f(n)=-f(n-1)*y/a
от этого плясать и оценивать ABS(f(n))