Do something like this (psudocode):
Code:
For i=0 to array.length

' get a random number between 0 and array.length
Dim Random as ......a random number code.

Dim Temp as String

Temp = array(i)

array(i) = array(Random)

array(Random) = Temp

Next
So basically, you go through each item, and randomly switch it with another item.