Con ésto cortas el texto en palabras:

palabras() = Split(text1.Text, " ");

Y con ésto cuentas las palabras:

UBound(palabras);

__________________
programador php