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