Сумма ряда с использованием факториала - VB (60965)

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

Помогите найти ошибку. VB 6.0 (Задание во вложениях).

Составить программу вычисления суммы всех членов последовательности, не меньших заданного числа e. При вычислении факториала использовать рекурсивную подпрограмму-функцию.

Dim k, e, Sum, s, x As Double
Dim p, i As Integer
Private Sub Command1_Click()
Picture1.Cls
Sum = 0
e = Val(Text1)
k = 1
s = 1
p = 1
Do
    p = p * k
    x = ((-1) ^ k) / (p ^ 2)
    If k <> 2 Then Sum = Sum + ((-1) ^ k) / (p ^ 2)
    k = k + 1
Loop While Abs(x) > e
Picture1.Print "Сумма равна "; Format(Sum, "0.000")
End Sub

Решение задачи: «Сумма ряда с использованием факториала»

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

                            Function fact(n As Integer) As Double
  If n = 1 Then
     fact = 1
  Else
     fact = CDbl(n) * fact(n - 1)
  End If
End Function
 
Function Dummy_f(eps As Double) As Double
    k% = 0
    a# = 0
    Do
       k% = k% + 1
       a# = ((-1) ^ k%) * (1 / fact(k%))
       Dummy_f = Dummy_f + a#
    Loop Until (Abs(a#) < eps)
End Function
 
Function Smart_f(eps As Double) As Double
    k% = 1
    a# = -1
    Smart_f = -1
    Do
       k% = k% + 1
       a# = -a# / k%
       Smart_f = Smart_f + a#
    Loop Until (Abs(a#) < eps)
End Function
 
Sub Test()
    Debug.Print Dummy_f(0.00001)
    Debug.Print Smart_f(0.00001)
End Sub
                        