Visual Basic - listado de palabras

Hola a todo el foro,

tengo las siguientes lineas de código y me gustaria poner en el listbox todas las palabras del archivo txt que he abierto y crear una matriz con todas las palabras. Con el codigo que tengo solo muestra la ultima linea del archivo txt y yo quiero todo el texto, al igual que crear una matriz con todas las palabras del archivo txt.

Gracias de antemano


Private Sub B_Carregar_Llista_Click()
Dim cadena As String
Open App.Path & "\arxiu_exemple.txt" For Input As 1
While Not EOF(1)
Line Input #1, cadena
Combo1.AddItem cadena
Wend
Close
End Sub

Private Sub B_Esborrar_llista_Click()
Combo1.Clear
End Sub

Private Sub Boto_Separar_Paraules_Click()

Dim paraules() As String

'
For M = 0 To Combo1.ListCount - 1


paraules = Split(Combo1.List(M))


N = UBound(paraules)


For i = 0 To N
Combo2.AddItem paraules(i)
Next i

Next

'pone la matriz dentro de un listbox
For J = 0 To N
List1.AddItem paraules(J)
Next J

End Sub

' el archivo prueba txt contiene esto :
' aaa
'bbb
'ccc
'ddd'
'eee
'ffff

el codigo para leer el txt

Dim Cadena As String
Open "f:\Prueba.txt" For Input As #1
Do While Not EOF(1)
If EOF(1) Then Exit Do
Line Input #1, Cadena
Combo1.AddItem Cadena
Loop
Close #1

----------------------------------------------------------------------------------------------------------------

Por lo que veo el SPLIT estaria mal aplicado porque te falta el caracter por el cual vas a "SPLITEAR"

te paso un ejemplo a ver si te ayuda

Dim items() As String
Dim texto As String

texto = "aaa;bbb;ccc;ddd;eee;ffff"
items() = Split(texto, ";")
For i = 0 To UBound(items)
Combo1.AddItem items(i)
Next

Muchas gracias Christian, voy a probarlo. La matriz si que se creaba pero no con todas las palabras.

Saludos.

Hola, he adaptado tus lineas de codigo al programa que ya tengo y no sale el listado en combo2.addItem. En tu ejemplo separa las palabras a partir de una una frase dentro del propio programa, yo lo he adaptado a un txt que seria: arxiu_exemple.txt, y en vez del punto y coma a splitear como tu has puesto yo he puesto " " un espacio en blanco para separar las palabras. Y no se lo que hago mal.

Gracias por la ayuda.

Este es el codigo que he puesto:

Dim cadena As String
Open App.Path & "\arxiu_exemple.txt" For Input As 1
While Not EOF(1)
Line Input #1, cadena
Combo1.AddItem cadena
Wend
Close
End Sub

Private Sub B_Esborrar_llista_Click()
Combo1.Clear
End Sub

Private Sub Boto_Separar_Paraules_Click()


Dim items() As String


items() = Split(cadena, " ")
For i = 0 To UBound(items)
Combo2.AddItem items(i)
Next