Leer txt en vb6 (Error)

[pkj]

Prueba así:

Código vb:

Dim obj_FSO As Object
   Dim Archivo As Object
   Set obj_FSO = CreateObject("Scripting.FileSystemObject")
   Set Archivo = obj_FSO.OpenTextFile("c:\archivo.txt", 1)
  
   If Archivo.ReadLine = "Base Exportada" Then
     MsgBox "La Base ha sido exporta"
   End If
 
   Archivo.Close
   Set obj_FSO = Nothing
   Set Archivo = Nothing
 

Saludos