Visual Basic - Funcion de conteo de palabras

Como puedo crear una función ó procedimiento que me permita contar las palabras que se vayan capturando en un cuadro de texto.

Urgente, gracias.

Las palabras en un texto están separadas por un espacio, por lo tanto podrías crear un procedimiento como éste (mejorable):
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Static numPalabras As Integer
If KeyCode = 32 Then ' 32 es el código del espacio
numPalabras = numPalabra + 1
MsgBox numPalabras
End If
End Sub

Saludos

Por ejemplo la función Split()
te crea una matriz con una cantidad x de dimensiones equivalente a la cantidad de palabras lo que implica que hay una una exacta cantidad de espacios -1
dim mistring as string
Dim MiSplit
mistring="nuevo texto delimitado por un espacio entre palabra"
'Acá tenés ocho palabras y por supuesto siete espacios
'Si hacés
MiSplit=Split( mistring)
debug.print Ubound(MiSplit) -1
Equivale a la cantidad de espacios existentes en el texto

Esto puesto en el evento change te garantiza calcular todos los espacios que el usuario ponga en el textbox