Mira, este comentario tuyo me ha echo volver loco para poder solucionarlo.
Lo bueno es que descubri algo que no sabia
La funcion Input (que lee los datos del archivo), tiene una cierta capacidad en bytes para leer.
A partir de esa capacidad corta lo leido y ahi era donde no funcionaba.
Como se soluciona, muy facil:
con LINE delante de Input (que hace lea toda la linea del archivo).
Bueno, siempre se aprende
Aca va el codigo de nuevo
Saludos
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
Line Input #1, Data
'Lo que hay en data lo paso a un vector (es o que hace split)
'tene presente que empieza con ; y evalua si no corresponde antes quitarlo
'si lo quitas tenes que borrar el ultimo subiten
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)
itm.SubItems(6) = Aux(6)
itm.SubItems(7) = Aux(7)
itm.SubItems(8) = Aux(8)
itm.SubItems(9) = Aux(9)
itm.SubItems(10) = Aux(10)
itm.SubItems(11) = Aux(11)
itm.SubItems(12) = Aux(12)
itm.SubItems(13) = Aux(13)
itm.SubItems(14) = Aux(14)
itm.SubItems(15) = Aux(15)
Loop
Close #1
End Sub