Visual Basic - Como recorrer un Archivo de texto usando FSO.

(VB6.0)
Estoy usando el FileSystemObject para abrir un archivo de texto sin embargo no encuentro la forma de recorrerlo me manda el siguiente error:

Error '438' en tiempo de ejecución
El objeto no admite esta propiedad.

La forma en que lo estoy haciendo es la siguiente:

Dim FSO As New FileSystemObject
Dim RecordLine() as variant

Set FSO = CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(FName) then
Set mFileName = FSO.OpenTextFile("archivo.txt", ForReading, False)

i=0
Do While Not mFileName.EOF (AQUI ES DONDE ME MANDA EL ERROR)
RecordLine(i) = mFileName.ReadLine
i=i+1
Loop

De antemano muchas gracias por su ayuda.

Saludos,

Es claro el error que te muestra "Error 438", El objeto no admite esta propiedad o método, no es la forma correcta de usarlo, pero hasta donde tengo entendido con el FileSystemObject no se puede leer el fin de archivo osea EOF lo que puedes hacer es tomar el error y tomarlo como fin de archivo ejemplo:

On Error GoTo Errores

Dim FSO As New FileSystemObject
Dim s As String
Dim i As Boolean

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("C:\archivo.txt") Then
Set mFileName = FSO.OpenTextFile("C:\archivo.txt", ForReading, False)
i = False
Do While Not False
s = mFileName.ReadLine
MsgBox s
Loop
End If

Exit Sub
Errores:
If Err.Number <> 0 Then
If Err.Number = 62 Then
MsgBox "Fin de Archivo", vbInformation, "Validación de Información"
Else
MsgBox Err.Description, vbCritical, Err.Number
End If
End If
Err.Clear

es una idea espero y te puedan sugerir otra...saludos!!!