try this
create any text file and write its location in MyFile =
Sub create_txtfile()
MyFile = C:\Documents and Settings\ashish\Desktop\ashish.txt
'set and open file for output
fnum = FreeFile()
Open MyFile For Output As fnum
For i = 3 To Sheets(1).Range(a65356).End(xlUp).Row
'Write
try this
Sub create_txtfile()
MyFile = C:\Documents and Settings\achamanlalko\Desktop\ashish.txt
'set and open file for output
fnum = FreeFile()
Open MyFile For Append As #1
Write #1,
For i = 3 To Sheets(1).Range(a65356).End(xlUp).Row
'Write #fnum,Sheets(1).Cells(i, 2).Value
Print #1,
