Где ошибка? - VB (59898)

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

Нужно решить задачку. Кроме бэйсика ничего не знаю, поэтому решил в экселе написать вот код : P

rivate Sub CommandButton1_Click()
Dim A As Integer, B As Integer, C As Integer, S As Double, E As Double, summa As Double
 E = InputBox("Введите Е")
 A = 1
 B = 2
 C = 3
 summa = S
 S = (1 / (A * B * C))
 If summa < E Then
 Print summa
 Else
Do Until summa < E
A 1, B + 1, C + 1 And summa + S
Loop
End If
Print summa
End Sub

после Do Until summa < E автоматически убирает перед А знак "+", не могу понять почему большое спасибо )

линк на радикал не робит, хз почему

Решение задачи: «Где ошибка?»

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

                            Private Sub CommandButton1_Click()
Dim A As Long, S As Double, E As Double, summa As Double
E = InputBox("Введите Е", , 0.0001)
Do
  A = A + 1
  S = 1 / A / (A + 1) / (A + 2)
  summa = summa + S
Loop Until S < E
Print summa
End Sub
                        