pues mira,esto es una cosa que se me ocurrio,en vez de hacer tanto lio,mejor cargas completo el archivo txt y despues le borras las 5 lineas primeras al listbox y listo
.algo asi:
Código:
Private Sub Command1_Click()
Static i As Integer
Dim archivo As String, file_line As String
Dim fnum As Integer, a As Integer
archivo = "c:\a.txt"
fnum = FreeFile
Open archivo For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, file_line
List1.AddItem file_line
Loop
i = 0
For a = 0 To 3
List1.RemoveItem i
Next
End Sub
saludos.