Dim i As Double
Dim j As Double
Dim pi As Double

Private Sub Command1_Click()

i = 0
j = 2
pi = 2

Open "C:\test.txt" For Output As #1

For n = 1 To 100000


i = i + 2
j = i * i
j = j / (j - 1)
pi = pi * j


Print #1, pi

Next n

Close #1

Open "C:\test2.txt" For Output As #1
Print #1, pi
Close #1


Text1.Text = pi

End Sub