Que tal.
Al menos hay un par de soluciones:
1.- Si dices que tienes como 100 palabras(pocas), puedes pasarlo a un arreglo con la función
split, de la siguiente manera:
Código:
myArray = Split(myText, " " ) ' Hay un espacio entre comillas
'Posteriormente sólo "barrer" myArray.
2.- También podrías usar la función
InStr(Desde, Texto, QueBuscar), por ejemplo,
Código:
myFirstSpace = InStr(1,strText," " ) ' Hay un espacio entre comillas
myFirstWord = Mid(strText,1, myFirstSpace)
'-----
mySecondSpace = InStr(myFirstSpace+1,strText," " ) '' Hay un espacio entre comillas
mySecondWord = Mid(strText,myFirstSpace+1, mySecondSpace )
'-----
'Lo anterior, claro, lo puedes meter a un arreglo.
Saludos y suerte!!