Найти сумму числового ряда через Do Loop - VB

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

Здравствуйте,нужна помощь очень.помогите пожалста. Нужно найти сумму числового ряда (-1)^N/N^2 с помощью алгоритмов Until и While и оператора Do Loop с постусловием и предусловием.Результат проекта:значение суммы ряда и номер последнего члена ряда.

Решение задачи: «Найти сумму числового ряда через Do Loop»

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

                            Sub main()
e = 0.0000001
n = 1
Summa = 0
Y = -1 ^ n / F(n + 1)
Do While Abs(Y) > e
  Y = -1 ^ n / F(n + 1)
  Summa = Summa + Y
  n = n + 1
Loop
MsgBox "Сумма = " & Summa & vbCrLf & "Номер последнего: " & n - 1
End Sub
 
Function F(n)
F = 1
For i = 2 To n
  F = F * i
Next i
End Function
                        