n = 15108097
T = n Mod 100
s = 0
For c = 0 To T
s = s + (-1) ^ c / (2 * c + 1)
Next c
MsgBox s