Ejemplo para leer un archivo de texto utilizando Line Input en Visual Basic 6.0

Lo siguiente, lee un archivo de texto línea por línea, y carga el contenido en un control ListBox. colocar un control List1, un Command1 y un Text1 para indicar el path del archivo a leer:

Option Explicit

Private Sub Command1_Click()
On Error GoTo errSub

Dim n_File As Integer
Dim Linea As String

'Elimina el contenido del listbox
List1.Clear

'Número de archivo libre
n_File = FreeFile

'Abre el archivo para leer los datos
Open text1.Text For Input As n_File

'Recorre linea a linea el mismo y añade las lineas al control List
Do While Not EOF(n_File)

'Lee la linea
Line Input #n_File, Linea
List1.AddItem Linea
Loop

Exit Sub
errSub:
'error
MsgBox "Número de error: " & Err.Number & vbNewLine & _
"Descripción del error: " & Err.Description, vbCritical
End Sub

Private Sub Form_Load()

Command1.Caption = " Cargar en Listbox "

End Sub