Visual Basic - Contar palabras de un cuadro de texto

Hola, alguien me podria decir como puedo contra las palabras de un cuadro de texto?, porfavor ayundenme!!!!!!!

Es un poco complejo ya que tienes que buscar los espacios en blanco con InStr()
y colocarlo en un bucle para que encuntre todos y con eso te das cuenta cuantas palabras tines espero lo entiendas:

str_cadena as string ; i_posicion as integer ; i_contador as integer ; i_totalcadena as integer

str_cadena= trim(text1.text)
i_posicion =1

do while bt_cont<>0
i_totalcadena=len(str_cadena)
i_posicion = InSrt(str_cadena," ")
str_cadena= mid(str_cadena, i_posicion,i_totalcadena-i_posicion)
str_cadena=trim(str_cadena)
bt_contador=bt_contador+1
loop

msgbox "Cantidad de Palabras " & bt_contador

Suerte

Bueno, tampoco es tan complejo. Con una sola instrucción se puede conseguir lo deseado, sólo hay que introducir las palabras en un array y contar el número de elementos.

Dim a() As String
a = Split(Text1, " ")
MsgBox "La frase contiene " & UBound(a) + 1 & " palabras"

Nota: Hay que sumarle uno al mayor subíndice porque el primer elemento de la matriz es cero

pasenlo porfas