Private Sub Command1_Click()
getrnd 20
End Sub
Sub getrnd(ByVal m As Integer) 'get m rnd number between 0-24
Dim x As New Collection, temp As Integer
For i = 0 To 24
x.Add i
Next
Randomize
For i = 1 To m
temp = Int(Rnd * x.Count + 1)
Debug.Print x(temp)
x.Remove temp
Next
End Sub