Pues si primero te las arreglas para quitar las palabras que son etiquetas HTML (con un replace de una expresion regular por ejemplo) el resto del problema se soluciona haciendo:
<pre> palabras = split(texto)
NumPalabras = uBound(palabras)+1 </pre>
Espero que esto sirva para aclarar algo...