Pick Random Number with no repeat

[metrick]

I have following VBA code in Excel to generator random number between Min and Max numbers and want to duplicate the code in B4A but not success after several hours. Any help would be appreciated.
Here is the code from VBA.

dim Already_Picked as Boolean
dim Random_Number as integer
dim intMin, intMax as integer
dim mloop as integer
dim Array1() as integer
redim Array1(1 to intMax)
redim Already_Picked(1 to intMax)

intMin = 10
intMax = 100

For mloop = intMin To intMax

Do
Random_Number = (((intMAX - 1) * Rnd)
'Random_Number = Rnd(intMin, IntMax) 'B4A
Loop Until Not (Already_Picked(Random_Number))
Array1(mloop) = Random_Number
Already_Picked(Random_Number) = True

Next mloop

For i = LBound(Array1, 1) To UBound(Array1, 1)
For j = LBound(Array1, 1) To UBound(Array1, 1)
If Array1(i) > Array1(j) Then
maxtemp = Array1(i)
Array1(i) = Array1(j)
Array1(j) = maxtemp
End If
Next j
Next i

 

[Erel]

Check this thread: http://www.b4x.com/forum/basic4andr...74-card-game-shell-programmers.html#post44195
I believe that your problem is similar to the shuffle problem implemented in this thread.