number4terms = 100000
s = 0
For c = 1 To number4terms
s = s + (-1) ^ c / c
Next c
MsgBox s