Problema leyendo la ultima linea StreamText

[ElAprendiz]

Function LeerArchivoEntero(nombreArchivo)
Const ComoLectura = 1
Dim fso, elArchivo, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set elArchivo = fso.OpenTextFile(nombreArchivo, ComoLectura, False)
Do While elArchivo.AtEndOfStream <> True
retstring = elArchivo.ReadLine
Loop
elArchivo.Close
LeerArchivoEntero = retstring
End Function