Private Sub Form_Click()
D.im i As Integer
Open "Num.txt"For Output As #1
F.or i=1 To 8
(15)
Next i
C.lose #1
E.nd Sub