Writing text area to file

Hey Floyd, thanks for the reply. That worked fine for saving if I write directly into the text area, but if I load some text in from a file, it writes it out all as one line (when viewed in notepad). Heres my loadfile function, im sure it's the culprit:

Function open_file(file$)
	SetTextAreaText(g_text,"",2)
	f=ReadFile(file$)
	While Not Eof(f)
		temp$=ReadLine(f)+Chr(13)
		AddTextAreaText(g_text,temp$)
		temp$=""
	Wend
	
	CloseFile(f)
End Function

Could someone tell me whats wrong with it? Thanks.