Hola,
para estos casos yo prefiero utilizar la función Split que devuelve un array con cada una de las palabras entre el delimitador indicado.
En este ejemplo leemos un archivo de texto en el cual las palabras están separadas por comas y las mostramos en un control ListBox:
Código:
Dim s As String, a() As String, i As Integer
' abrimos el fichero y lo cargamos en la variable "s"
Open App.Path & "\Archivo.ini" For Input As #1
s = Input(LOF(1), #1)
Close #1
' cargamos cada una de las palabras en el array "a()"
a = Split(s, ",")
' y agregamos las palabras al listBox
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next i
