Option Explicit
Sub Test()
Dim colSequence As VBA.Collection
Dim colSelected As VBA.Collection
Dim i As Long
Set colSequence = New VBA.Collection
Set colSelected = New VBA.Collection
For i = 1 To 100
Call colSequence.Add(i)
Next
Randomize Timer
Do While colSelected.Count < 10
i = Int(colSequence.Count * Rnd() + 1)
Call colSelected.Add(colSequence(i))
Call colSequence.Remove(i)
Loop
Debug.Print "{";
For i = 1 To colSelected.Count
Debug.Print CStr(colSelected(i)); IIf(i < colSelected.Count, ", ", "");
Next
Debug.Print "}"
End Sub