Private Sub Command1_Click()
'10^(-4)=1/10000
For i = 1 To 9999 Step 3
a = 1 / i
Sum = Sum + a
Next i
Print Sum
End Sub