Visual Basic - separar palabras en una frase

Hola lo que yo quiero es que en un inputbox al introducir una frase poder separar las palabras de la frase y que el mismo programa asigne una variable a cada palabra.
Ejemplo la frase:El perro de Tomas esta muerto
c1=El
c2=perro
c3=de
c4=Tomas
c5=esta
c6=muerto

dim v as variant
v=split(textbox1.text," ")
for i=0 to ubound(v)
msgbox v(i)
next