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