Visual Basic - Función o proc. contar palabras

Necesito saber como puedo crear una función o procedimiento que me permita contar las palabras que sa vayan capturando en un cuadro de texto.
URGENTE, gracias.

espero esa funcion te sirva ... solo debes tener dos cajas de texto y copiar todo este codigo, nada mas

Private Sub Text1_Change()
Text2.Text = Val(contar(Text1.Text))
End Sub

Private Function contar(texto As String) As Integer
Dim cont As Integer, a As String
cont = 0
a = ""
While (Left(texto, 1) = " ") And (Len(texto) > 0)
texto = Right(texto, Len(texto) - 1)
Wend
While Len(texto) > 0
If Left(texto, 1) = " " Then
cont = cont + 1
End If
a = texto
texto = Right(texto, Len(texto) - 1)
Wend
If (a <> "") Then
cont = cont + 1
End If
If a = " " Then
cont = cont - 1
End If
contar = cont
End Function

Fco... Aca te dejo una Función un "poquito" mas sencilla.

Private Function ContarPalabras(cadena As String) As Long
Dim posactual, posinicio As Long
Dim cantidad As Long

posinicio = 1
posactual = 0
cant = 0
Do Until posactual >= Len(cadena)
posactual = InStr(posinicio, cadena, " ")
If posactual = 0 Then
cantidad = cantidad + 1
Exit Do
End If
cantidad = cantidad + 1
posinicio = posactual + 1
Loop

ContarPalabras = cantidad
End Function