Проверка наличия случайного числа VBscript

Question

Я написал код, который генерирует случайное число от 1 до 9.

Теперь я хочу добавить к этому и сгенерировать случайное число, но сгенерировать новое число, если это число уже использовалось ранее.

Sub main()
 Dim max,min
max=9
min=1
Randomize
MsgBox(Int((max-min+1)*Rnd+min))

// Генерируется случайное число от 1 до 9

Я пытался реализовать al oop, но я не уверен, как это будет работать, так как мне нужно сохранить число, сгенерированное в памяти

 If Int =  random
    Msgbox("Already in use")
End If

If Int = not random Then
    Msgbox("Can be used")
End If

End Sub