Private Sub Form_Load()

ii = FreeFile
Open "D:\contoh.txt" For Output As #ii

Print #ii, "0+0,"
Print #ii, "0+1,"
Print #ii, "1*2,"

For i = 2 To 1996 Step 2
Print #ii, "0+", i, ","
Print #ii, i + 1; "*", i + 2, ","
Next i

Close #ii

End Sub