Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Open FileName For Input As #1
 
While Not EOF(1)
Line Input #1, LineaTexto
List.AddItem LineaTexto & vbcrlf, 0
Wend
 
Close #1
End Sub
 

Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Dim I as Integer
Dim Separador() as String
Open FileName For Input As #1
 
While Not EOF(1)
Line Input #1, LineaTexto
Separador = Split(LineaTexto,"-")
For I = 0 to UBound(Separador())
List.AddItem Separador(I), 0
Next I
Wend
 
Improvise un poco con el codigo de  Flamer espero que si funcione y que te sirva ;)
 
Close #1
End Sub
 

Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Dim File As Integer
Dim Cont As Integer
Dim cDato As String
File = FreeFile
 
  'Abre el archivo
    Open FileName For Binary Access Read Write Lock Write As #File
    cDato = String(1, " ")
        While Not EOF(File)
            Get #File, , cDato
           LineaTexto = LineaTexto & cDato 'Carga el texto en una variable
        Wend
        Close #1
  'Lee linea por linea y las mete en el ListBox
Dim Lineas() As String
Dim i As Integer
Lineas = Split(LineaTexto, vbNewLine)
For i = LBound(Lineas) To UBound(Lineas)
If Lineas(i) > "" Then
    List1.AddItem Lineas(i)
End If
Next
End Sub