Creating cummalative word counter in word.

[Shorty]

Hi all
need a little help
im tying to create a macro in word that will count each word length and store them in a varible.
For example if it counts the word two it would add one to the under5 varible e.g

If word.length <= 5 then"how ever this is done as this is my problem
under5 = under5 + 1
End If

so in short i need it to create around 5 varibles under5, under10, under15, under20 and under25
go through each word in the document (ebook) and then output the result some how however is easiest but so i can see it.

This is for my GCSE mathmatics invistigation just to give you an idea of why on earth I would want such a thing it is a statistics peice comparing adult books to childrens or in my case ebooks.

Thanks in advance Paul (Shorty)