textStreamObject linie nummer

Jeg har

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(sti & "\myfile.txt",1,false,0)

Do While Not textStreamObject.AtEndOfStream

LineRead = textStreamObject.ReadLine
response.write LineRead & textStreamObject.Line &"<br>"

Loop

If textStreamObject.AtEndOfStream Then
   
Response.Write "The End"

End If


Set textStreamObject = Nothing
Set fso = Nothing


Det giver dette resultat

Linjen er nu nummer = 2
Linjen er nu nummer = 3
Linjen er nu nummer = 4
Linjen er nu nummer = 4
The End

Hvorfor giver den 4 i de to nederste ??

Hvordan udskriver jeg en bestemt linie ???