Creates random array

Function RandomArray(alen, LBound, UBound)
Dim i, j, exists, nextrand, newrandom, result

result = Null

If (alen >= 1) Then
  ReDim result(alen - 1)
  Randomize
  For i = 0 To alen - 1 
    nextrand = True
    Do While nextrand
      exists = False
      newrandom = Int((UBound - LBound + 1) * Rnd + LBound)
      For j = 0 To i - 1 
        exists = exists Or (result(j) = newrandom)
      Next
      If (Not exists) Then
        nextrand = False
        result(i) = newrandom
      End If
    Loop
  Next
End If
RandomArray = result
End Function