配列をシャッフルする。

VBAとVBScriptで、これが一番簡単。

Sub Shuffle(a)
Dim k, j As Long
Dim t
Randomize
For k = UBound(a) To 0 Step -1
  j = Fix(Rnd * (k + 1))
  t = a(j)
  a(j) = a(k)
  a(k) = t
Next
End Sub

Dim a
Dim k As Long
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Call Shuffle(a)
For k = 0 To UBound(a)
  Debug.Print a(k)
'  WScript.Echo a(k)
Next