Copy and paste

code

	Case 2
			filelocation$ = RequestFile("Open a File","bb,cpp,crx,c,h,hpp,b3d,doc,txt,htm,html")
			file = ReadFile(filelocation$)
			
			SetGadgetText(codearea,"")
			
			
			While Not Eof(file)
				tmp1$ = ReadLine(file)
				tmp2$ = tmp2$ +Chr$(13)+tmp1$
			Wend
			AddTextAreaText(codearea,tmp2$)
			tmp2$ = "" 
			CloseFile(file)

That works now, but it adds a space at the top. I know this is like a really simple bug, but i just can't find it.