% Dim myArr(14) myArr(0)="acYt_1864" myArr(1)="X97q" myArr(2)="r4Z9" myArr(3)="kY23" myArr(4)="gEE2" myArr(5)="b237" myArr(6)="fT9v" myArr(7)="jOp3" myArr(8)="R163" myArr(9)="yE48" myArr(10)="yT27" myArr(11)="fB83" myArr(12)="EeW6" myArr(13)="6g9S" Function Rand(dex) Randomize Rand = Int (dex * Rnd) + 1 End Function Dim RandCall RandCall = myArr(Rand(13)) %>
|
||||||||||||||||||||||||||||||||||||||