Hola Rashid.
La cantidad de caracteres la obtienes mediante la funcion : chars = Len(cadena)
Mientras que para contar palabras simplemente contas la cantidad de espacios.
Una funcion que utilizo es esta :
Function Occurs(pchar, pstring)
xcant = 0
xpos = 0
Do While xpos < Len(pstring)
xpos = InStr(xpos + 1, pstring, pchar)
If xpos > 0 Then
xcant = xcant + 1
Else
Exit Do
End If
Loop
Occurs = xcant
End Function
entonces la llamas mediante :
palabras = Occurs(" ",cadena) + 1
Saludos
