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

Print #iii, e