Puedes yo uso esto en mis proyectos:
Pero separo los string con una coma o un guion
Si en el archivo esta "PRUEBAPRUEBAPRUEBA"
Cambialo por "PRUEBA-PRUEBA-PRUEBA" o "PRUEBA,PRUEBA"....
Pero separo los string con una coma o un guion
Si en el archivo esta "PRUEBAPRUEBAPRUEBA"
Cambialo por "PRUEBA-PRUEBA-PRUEBA" o "PRUEBA,PRUEBA"....
Código (vb) [Seleccionar]
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