Visual Basic - contar palabras

Necesito ayuda con el codigo para realizar el conteo de palabras en una cadena de caracteres es Urgente parcial.

Holaaa
Espero este ejemplo te sirva.
Coloca una caja de texto y un boton y el siguiente codigo

Private Sub Command_Click()
Dim NPALABRAS, X As Integer
Dim DATOS As String
DATOS = Text1.Text & " "
NPALABRAS = 0
For X = 1 To Len(DATOS)
If Mid(DATOS, x, 1) = " " Then
NPALABRAS = NPALABRAS + 1
End If
Next
MsgBox NPALABRAS
End Sub

Chao

Holaaa
Espero este ejemplo te sirva.
Coloca una caja de texto y un boton y el siguiente codigo

Private Sub Command_Click()
Dim NPALABRAS, X As Integer
Dim DATOS As String
DATOS = Text1.Text & " "
NPALABRAS = 0
For X = 1 To Len(DATOS)
If Mid(DATOS, x, 1) = " " Then
NPALABRAS = NPALABRAS + 1
End If
Next
MsgBox NPALABRAS
End Sub

Chao

Holaaa
Espero este ejemplo te sirva.
Coloca una caja de texto y un boton y el siguiente codigo

Private Sub Command_Click()
Dim NPALABRAS, X As Integer
Dim DATOS As String
DATOS = Text1.Text & " "
NPALABRAS = 0
For X = 1 To Len(DATOS)
If Mid(DATOS, x, 1) = " " Then
NPALABRAS = NPALABRAS + 1
End If
Next
MsgBox NPALABRAS
End Sub

Chao

'Hola el ejelmplo anterior es muy bueno, pero en algunas ocasiones
'nos devolvera un valor erroneo, por ejemplo al separar una palabra con
'mas de un espacio, con tab o con un enter, prueba esta funcion y
'recuerda agregar un case mas para cada caracter de separacion que
'desees identificar, bye

Public Function ContarPalabras(ByVal Cadena As String) As Long

Dim nChar As Long
Dim nLargoCadena As Long
Dim bContado As Boolean
Dim nTotalPalabras As Long

Cadena = Cadena & " "
nLargoCadena = Len(Cadena)

For nChar = 1 To nLargoCadena

Select Case Mid$(Cadena, nChar, 1)
Case " "
If bContado = False Then
bContado = True
nTotalPalabras = nTotalPalabras + 1
End If
Case vbCr
If bContado = False Then
bContado = True
nTotalPalabras = nTotalPalabras + 1
End If
Case vbTab
If bContado = False Then
bContado = True
nTotalPalabras = nTotalPalabras + 1
End If
Case ","
If bContado = False Then
bContado = True
nTotalPalabras = nTotalPalabras + 1
End If
Case "."
If bContado = False Then
bContado = True
nTotalPalabras = nTotalPalabras + 1
End If
Case ";"
If bContado = False Th

Pero hay una manera mas facil para cntrolar espacios,intros o tab.En cuanto encuentre el codigo lo pongo