Найти сумму ряда с заданной точностью vba подскажите, что тут не так 1 - 1/2 + 1/4 -1/8+1/16

Формулировка задачи:

Private Sub CommandButton3_Click()
Dim s As Single, e As Single, a As Single, n As Single
s = 0
e = 0.001
n = 1
Do
a = 1 + (1 / (-2 ^ n))
s = s + a
n = n + 1
Loop While Abs(a) >= e
Label10.Caption = s
End Sub

Решение задачи: «Найти сумму ряда с заданной точностью vba подскажите, что тут не так 1 - 1/2 + 1/4 -1/8+1/16»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton3_Click()
Dim s As Double, e As Double, a As Double, n As Long
s = 0
e = 0.001
n = 0
Do
  a =1/ ((-2) ^ n)
  'a = 1 + (1 / (-2 ^ n))
  s = s + a
  n = n + 1
Loop While Abs(a) >= e
Label10.Caption = s
End Sub
                        