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

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

1.Найти сумму ряда с заданной точностью Е=10^(-3) S=2/3+4/9+6/27+8/81..... Я не могу понять в чем ошибка: Private Sub Command1_Click() Dim S, EPS As Single Dim N, M, K As Integer EPS = 10 ^ (-3): S1 = 0 Do While S >= EPS S1 = S1 + ((N + 2) / (3 ^ M)) N = N + 1 M = M + 1 S = S1 Loop Print "N="; N, "M="; M Print "S=", S End Sub Если вы могли бы,помогите) Плиз))

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

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

                            Option Explicit
Private Sub Комманда1_Click()
Dim R
Dim S1
Dim S, EPS As Single
Dim N, M, K As Integer
EPS = 10 ^ (-3): S1 = 0
Do
R = S1
S1 = S1 + ((N + 2) / (3 ^ M))
N = N + 1
M = M + 1
S = S1 - R
Loop While S >= EPS
Print "N="; N, "M="; M
Print "S=", S
End Sub
                        