Textarea problem. Missing last line

Yes. And I remove one If-Endif and one WriteLine. You can even remove the exit command.

But Its better to do like this:

	file=WriteFile(file_req$)
	
	tl=TextAreaLen(textarea1,2)
	
	For i=0 To tl
		tx$=TextAreaText$(textarea1,i,1,2)
		tx$=Replace(tx$,chr$(10),"")
		WriteLine file,tx$
	Next
	
	
	CloseFile file

Good luck with your project.

Bye.