Error en objTextStream.EOF

[cepasoca]

Buenas, a ver si me echais una manita...

tengo el siguiente código:

<%

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strNombreArchivo = "cache.txt"

const strFileName = "cache.txt"
const fsoLectura = 1
const fsoEscritura = 2

If objFSO.FileExists(Server.MapPath(strNombreArchivo) ) then
Set objTextStream = objFSO.OpenTextFile(Server.MapPath(strFileName), fsoLectura)

while not objTextStream.EOF
Fichero = objTextStream.ReadLine
response.write Fichero
wend

objTextStream.Close
Set objTextStream = Nothing
end if
%>

pero al probarlo me da el siguiente error:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

prueba.asp, line 17

He mirado ejemplos y se supone que el EOF es una propiedad, ¿Por que me da error en objTextStream.EOF ?

Gracias y saludos a todos