Private Const MaxZNumbers As Long = 6
Private ZNumbers As Collection
 
Private Sub Command1_Click()
   Dim i As Long, n As Long
   If Not ZNumbers Is Nothing Then Set ZNumbers = Nothing
   Set ZNumbers = New Collection
   Randomize Timer
   On Error Resume Next
   Do
      n = Int(Rnd * 49) + 1
      ZNumbers.Add n, "K" & CStr(n)
      If Err.Number = 0 Then i = i + 1
   Loop While i <= MaxZNumbers
End Sub
 
'Show the numbers
Private Sub Command2_Click()
   Dim i As Long
   For i = 1 To ZNumbers.Count
      MsgBox ZNumbers(i)
   Next
End Sub