Найти сумму ряда с заданной точностью - VB (171571)

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

Здравствуйте, уважаемые посетители форума. Скажу прямо, я в программирование очень далек, и по этому не в состоянии написать даже самый простейший программный код. У меня есть задачи к которым нужно написать ПК, буду очень признателен, если вы в этом мне поможете. Спасибо.

Решение задачи: «Найти сумму ряда с заданной точностью»

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

                            Private Sub Command1_Click()
e = 10 ^ -3
s = 2 + 2 / (2 * 3)
For i = 1 To 10000 Step 2   'не стал заморачиваться с условиями - любое большое число поставить, выход из цикала у нас есть по условию
    s = s + 2 / (2 ^ 2 * (i + 1))
    If 2 / (2 ^ 2 * (i + 1)) < e Then GoTo 1
Next i
1 Print s
End Sub
                        