number4terms = 10000000
s = 0
For c = 1 To number4terms
s = s + 1 / c
Next c
MsgBox s