vb.net: word document iterating words very slow

Question

I have the following code, which selects the text in the current page and then procedes to get each word (wa is the word application object):