Dim x(5), y(5)
s = 16108088
m2 = s Mod 2
T = s Mod 100
k = s Mod 10000
x(0) = 0
y(0) = 1 / k
h = 1
For c = 1 To m2 + 2
x(c) = x(0) + c * h
y(c) = y(c - 1) + h * y(c - 1) / T
e = Abs(y(c) - Exp(x(c) / T) / k)
MsgBox e
Next c