Check if Word Exists in Array?

This should be a super-simple task, but I'm tearing my hair out due to Run-time Error 5, no matter what I try!
I am trying to fill an array with individual words from a cell containing text. I already have code working that finds each word in succession. But before adding each new word to the array, I need to check that that word doesn't already exist within the array.
I started off trying to use COUNTIF, but that only works on a range, not on an array.
Latest iteration is:

Please Login or Register  to view this content.

where NewWord is a string variable containing the latest word, and WordArray is a variant array which will store the words.
What am I doing wrong? Why does this give me a runtime error?
I should note that when I get this error (on the very first word), NewWord is a string such as "flower" and WordArray is empty (having just been ReDim-ed as WordArray(6)).

Why not use a Scripting.Dictionary, it's a lot easier to check if a value already exists.

That is very true, but not the easiest way to go if you don't know the dictionary

I left off the final parenthesis in the code in my original post (sorry).
I created a simplified file as a sample, and using

Please Login or Register  to view this content.

works in that file. But when I use it my original file, I still get the run-time error 5! Exact same statement yields two different results!

Can you supply a sample workbook?

Could you post the file where it is not working?

Here is the file. Gives runtime error 5 when it hits:

Please Login or Register  to view this content.

And here, for reference, is a simplified file with the exact same statement, that does NOT generate the runtime error.

I have not yet looked at your attachments.
In the meantime you can check if you can use this.

Sixthsense's solution
A1 has the sentence (=String).
Column F (= Column 6) has the words your checking against the array.

Please Login or Register  to view this content.

And here is an attachment to play with.

Originally Posted by AB33

There is no WordArray but WordArray has been erased by Erase AWordArray

Ah, of course!!
Forgot that Erase doesn't merely clear a dynamic array. I guess I should Redim each time rather than Erase!
THANKS for locating my screw-up!

If you are interested, with the dictionary.
List some items in column A to test

Please Login or Register  to view this content.