Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001 - VB

Function SumQuadr(eps As Double, Optional s As Double = 0, Optional i As Double = 1) As Double
         Z# = 1 / (i * i)
         s = s + Z#
         If Z# < eps Then
            SumQuadr = s
         Else
            SumQuadr = SumQuadr(eps, s, i + 1)
         End If
End Function
 
Sub Test()
    eps# = 0.001
    Debug.Print SumQuadr(eps#)
    eps# = 0.000001
    Debug.Print SumQuadr(eps#)
    eps# = 0.0000001
    Debug.Print SumQuadr(eps#)
End Sub