Private Sub Form_Load()
p = 0
m = 99999
For n = 1 To m
p = p + 1 / n ^ 2
Next n
p = Sqr(6 * p)
MsgBox p
End Sub