iii = FreeFile
Open "D:\results4sequences.txt" For Output As #iii

n = 200

For k = 1 To n
Print #iii, k, ",",
Next k