Hola, lo he conseguido pero de una forma muy enrevesada.
No he sabido seguir el ejemplo que me has dado y me gustaría hacerlo.
Si no te importa explicarmelo un poco más, te lo agradezco.
Pongo el código de como lo he hecho por si le sirve a alguien.
Código:
'Creo un ListbBox List1
'Leo el fichero1.txt del que quiero sacar líneas a partir de
'la línea 7 y copio su contenido al List1
Private Sub Command1_Click()
Dim s As String, a() As String, i As Integer
Open App.Path & "\fichero1.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)
List1.Clear
For i = 10 To UBound(a)
List1.AddItem a(i)
Next i
End Sub
'O leo el fichero1.txt del que quiero sacar líneas sueltas
'y copio su contenido al List1
Private Sub Command1_Click()
Dim s As String, a() As String, i As Integer
Open App.Path & "\fichero1.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)
List1.Clear
List1.AddItem a(1)
List1.AddItem a(2)
List1.AddItem a(4)
List1.AddItem a(5)
List1.AddItem a(6)
List1.AddItem a(7)
List1.AddItem a(14)
End Sub
'Salvo el contenido extraído en el ListBox en un nuevo fichero2.txt
Private Sub CreoSalvoArchivo_Click()
Dim i As Integer
Open App.Path & "\fichero2.txt" For Output As #1
For i = 0 To List1.ListCount
Print #1, List1.List(i)
Next i
Close #1
End Sub
Un saludo