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

[METFIss]

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

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

Была попытка написать, но как то не задалось.

[ViktorR]

Только как пример:
Private Sub My()

Dim tmp As Single
Dim Z As Single
Dim y As Single
Dim a As Single
Dim e As Single
Dim k As Integer

  y = 0.3
  a = 7
  e = 0.000005
  k = 1
  tmp = y / a
  Do While tmp > e
     Z = Z + k * tmp
     tmp = tmp * tmp
     k = -k
  Loop
End Sub

Как-то так,...