Hola, o te desesperes
Aca te paso el codigo que deberias usar. Lo probe y funciona
Si necesitas los archivos, pasa tu mail y te los envio (no puedo subir archivos)
Código:
Private Sub Command1_Click()
Dim itm As ListItem, Data As String, Aux As Variant
'Abrimos el archivo
Open "C:\prueba.txt" For Input As #1
'le damos formato a la vista del ListView
Me.ListView1.View = lvwReport
'mientras haya datos el archivo
Do Until EOF(1)
'leo los datos y los guardo en la variable Data
Input #1, Data
'Lo que hay en data lo paso a un vector (es o que hace split)
Aux = Split(Data, ";")
'agrego un iten
Set itm = ListView1.ListItems.Add(, , Aux(0))
'agrego el resto de los datos del vector
itm.SubItems(1) = Aux(1)
itm.SubItems(2) = Aux(2)
itm.SubItems(3) = Aux(3)
itm.SubItems(4) = Aux(4)
itm.SubItems(5) = Aux(5)
Loop
Close #1
End Sub