Leer txt en vb6 (Error)

[buxforever]

Alguien tiene idea porque no me abre el archivo de texto...

Código vb:

Dim obj_FSO As Object
Dim Archivo As Object
Archivo = obj_FSO.OpenTextFile("C:\archivo.txt", ForReading, True)
Archivo.ReadLine (1)
If Archivo.ReadLine(1) = "Base Exportada" Then
MsgBox "La Base ha sido exporta"
End If