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

[opus]

If you have all the words in an array (like arrWords()), you could use something like this:

Public Function fctRandomWord1()
        fctRandomWord1 = arrWords(Int(Rnd * 2000))
 End Function

As I see it you don't need a Select Case (if you have the words in an array). Also I wouldn't use Randomize in that Function, us it only once for the whole application!