e(0) = wartość liczbowa
e(1) = wartość liczbowa
e(2) = wartość liczbowa
e(3) = wartość liczbowa

i = CmdEvents.Name
j = CmdEvents.Tag
   ReDim WYB(i, j)

    'po kolei


    counter = 0

    For i = 1 To CmdEvents.Name

    For j = 1 To CmdEvents.Tag

   If counter <= e(k) Then
    WYBOR = f(k)
   WYB(i, j) = WYBOR
   counter = counter + 1
   Else
   counter = 0
   k = k + 1
   j = j - 1

   End If


Next j
Next i