Вычисление точности (Симпсон и трапеция)

[Алира]

Доброго времени суток.
Помогите, пожалуйста, в программе осуществить проверку на точность (VBA), если, допустим, метод Симпсон выглядит так:

Sub simpson()
e = 2.72: a = 1: b = e: x = a: S = fnfx(a) + fnfx(b): n = 52
c = 1: h = (b - a) / n
For i = 1 To n - 1
x = x + h
S = S + (3 + c) * fnfx(x)
c = -c
Next i
S = S * h / 3
y = fnfy(b) - fnfy(a)
Range("A3").Value = S
Range("A4").Value = y
End Sub
Function fnfx(x)
fnfx = (x * Log(x)) ^ 2
End Function
Function fnfy(x)
fnfy = ((9 * Log(x) * Log(x) - 6 * Log(x) + 2) * x ^ 3 / 27) - 2 / 27
End Function

точность (eps)=0.0001
очень прошу