Неповторяющийся рандом - VB

Формулировка задачи:

Здравствуйте. Сделал неповторяющийся рандом, при запуске приложения зависает рабочая среда...

Dim nm(31) As Integer
 
Public Sub Command1_Click()
Dim number As Integer
Dim nm2 As Integer
Do
    Randomize (num2)
    nm2 = Int(Rnd() * num2) + 1
    For j = 1 To num2
        If nm(j) = nm2 Then
            Exit For
        Else
            nm(j) = nm2
            number = nm2
            Exit For
            Exit Do
        End If
    Next j
Loop
End Sub

Есть конечно и аналог, но он почему-то не рабочий

m:  Randomize (num2)
    nm2 = Int(Rnd() * num2) + 1
    For j = 1 To num2
        If nm2 = nm(j) Then
            GoTo m
        Else
            nm(j) = nm2
            number = nm2
            Exit For
        End If
    Next

Решение задачи: «Неповторяющийся рандом»

textual
                            Листинг программы 
                        

                            Dim nm(31) As Integer
 
Public Sub Command1_Click()
Dim j, nm2, num2 As Integer
num2 = UBound(nm) + 1
Dim sl: Set sl = CreateObject("Scripting.dictionary")
Randomize
For j = LBound(nm) To UBound(nm)
    nm2 = Int(Rnd() * num2) + 1
    Do While sl.exists(nm2)
       nm2 = Int(Rnd() * num2) + 1
    Loop
    sl(nm2) = j
    nm(j) = nm2
Next j
                        