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

n = 5
For i1 = 0 To n - 1
For i2 = 0 To n - 1
For i3 = 0 To n - 1

'Print #iii, "(", i1, ",", i2, ",", i3, ")", ","
Print #iii, "(", i1, ",", i2, ",", i3, ")"

Next i3
Next i2
Next i1