Why not count the spaces.
Code:
For a=1 to len(LineOfText)
    if Mid(LineOfText(a,1)=" " then Count=count+1
next a
' and for the last word of the sentence
count=count+1
This is very simple way of counting