Вычислите с точностью е - VB

Function Sum(x as double, eps as double) As Double
     Sum=x
     A#=x
     n#=1
     q#=-1
     Do
        A#=A#*x*x
        D#=A#/(2*n#+1)
        Sum=Sum+D#*q#
        if Abs(D#) < eps then exit Do
        n#=n#+1
        q#=-q#
    Loop
End Function