ayuda leyendo un TextArea

[monkyta]

Mira esto encontre que puede servirte :

Function ContarPalabras ( texto )

'Convierto los retornos de carro y las tabulaciones en espacios
texto = Replace (texto, VbCr, " ")
texto = Replace (texto, VbLf, " ")
texto = Replace (texto, VbCrLf, " ")
texto = Replace (texto, VbTab, " ")
'Elimino el espacio en blanco de antes y después
texto = Trim(texto)
'Recorro la cadena y voy reduciendo los múltiples espacios a uno solo
while InStr(1, texto, " ", 1)
texto = Replace(texto, " ", " ")
wend

'Para contar el número de palabras, convierto la cadena en un vector
'cortando en los espacios, y saco UBound (máximo índice disponible) + 1
'Sumo uno debido a que los vectores comienzan en 0

ContarPalabras = UBound( Split(texto, " ", -1, 1)) + 1

End Function 'ContarPalabras

Espero te sirva