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