Dim ran_num(10)
Dim arr(10)
For i = 1 To 10 Step 1
    Randomize
    ran_num(i) = Int((100 * Rnd))
    print ran_num(i)
Next

4
96
94
34
15
97
24
44
11
10