Dim n&, m&, i&, Out$, Z1&(), Lst$()
 
  n = 5
  m = 3
  ReDim Lst(n), Z1(m)
  For i = 1 To n
    Lst(i) = Choose(i, "Hund", "Katze", "Maus", "Vogel", "Igel")
  Next i
 
  For i = 1 To m: Z1(i) = 1: Next i
 
  Do
    Out = ""
    For i = 1 To m
      Out = Out & Lst(Z1(i)) & ","
    Next i
    List1.AddItem Out
    For i = 1 To m
      Z1(i) = Z1(i) + 1
      If Z1(i) <= n Then Exit For
      Z1(i) = 1
    Next i
    DoEvents
  Loop Until i > m

Gruss,

Zardoz