Writing text area to file

Finally got it working, just needed to change:
temp$=ReadLine(f)+Chr(13)

to:

temp$=ReadLine(f)+Chr(13)+Chr(10)

incase anyone has the same problem and wants to know :).