[RESOLVED] Optimization tricks needed - VERY LARGE Select Case statement

[randem]

And your array would look something like:

Const Words = "word1,word2,word3,word4,word5,..."
Dim WordArr() as string
Dim WordCount as long
 
WordArr = Split(Words,",")
WordCount = Ubound(WordArr)+1

Or you could read the words from a file (better method if you need to add/change/remove words)

The you use a function like opus suggest to get the words you need.