Textarea problem. Missing last line

This might be easier to read:

	file=WriteFile(file_req$)
	
	tl=TextAreaLen(textarea1,2)
	
	For i=0 To tl
		tx$=TextAreaText$(textarea1,i,1,2)
		tnl=Len(tx$)
		
		If i<tl
		
			For ii=0 To tnl					
			
				If Mid$(tx$,ii,1)=Chr$(10)	;Strip line break
			
					WriteLine file,Mid$(tx$,1,ii-1) ;Write result
					ii=tnl
				EndIf
		
			Next
		 
		Else
		
			WriteLine file,tx$
		
				
		EndIf
		
	Next
	
			
	CloseFile file

l8r,