Access - extraer palabras de una oracion

me dieron el trabajo de hacer un programa que de una oracion saque las palabras y las entrege en una lista
no e podido hacerlo ojala me ayuden

Esto es lo que se me ocurre:

cadena = "prueba de extracción de palabras"
posicioninicial = InStr(cadena, " ")
List1.AddItem Left(cadena, posicioninicial - 1)
posicioninicial = posicioninicial - 2
Do While 1
posicioninicial = InStr(posicioninicial + 1, cadena, " ")
If posicioninicial = 0 Then
Exit Do
End If
posicionfinal = InStr(posicioninicial + 1, cadena, " ")
If posicionfinal = 0 Then
List1.AddItem Right(cadena, Len(cadena) - posicioninicial)
Else
List1.AddItem Right(Left(cadena, posicionfinal - 1), posicionfinal - posicioninicial)
End If
Loop

Mira a ver si te sirve, y si te falla por algún lado me lo dices.
Saludos,
Javi.

no entendi nada agradeci , bueno espero repuesta