Private Sub Form_Load()
For i = 1 To 50
n = 1
For j = 2 To i
n = n * j
Next
s = s + 1 / n
Next
MsgBox s
End Sub