Private Function GenerateFullCombination(NumberNumber As Integer, BallsNumber As Integer) () as integer
   'NumberNumber - количество возможных номеров
 
   'BallsNumber - количество номеров в одной комбинации
 

  Dim i As Long
  Dim N As Long
  Dim j As Long
  Dim rez() As Integer
  Dim SysRez As ctSystem
  Dim m As Long
  Dim p() As Long
  Dim p_max() As Long
  Dim nn As Long
  

  N = MeFaktorial(NumberNumber - BallsNumber +  1 , NumberNumber) / Faktorial(BallsNumber)
  
  ReDim rez( 1  To BallsNumber,  1  To N)
  ReDim p( 1  To BallsNumber)
  ReDim p_max( 1  To BallsNumber)
  
  For j =  1  To BallsNumber
    rez(j,  1 ) = j
    p(j) = j
    p_max(j) = NumberNumber - (BallsNumber - j)
  Next j
   
  Dim a As Long
  Dim k As Long

  For i =  2  To N
      k = BallsNumber
      a = rez(k, i -  1 ) +  1 
      While (a > p_max(k)) And (k >  0 )
        k = k -  1 
        a = rez(k, i -  1 ) +  1 
      Wend
      For j =  1  To k -  1 
        rez(j, i) = rez(j, i -  1 )
      Next j
      rez(k, i) = rez(k, i -  1 ) +  1 
      For j = k +  1  To BallsNumber
        rez(j, i) = rez(j -  1 , i) +  1 
      Next j
  Next i
  GenerateFullCombination = rez
  
End Sub

Public Function Faktorial(N As Integer) As Long
  If N =  0  Then
    Faktorial =  1 
  Else
    Faktorial = N * Faktorial(N -  1 )
  End If
End Function

Public Function MeFaktorial(N As Integer, m As Integer) As Long
   'n - стартовый номер
 
   'm - конечный номер
 
  Dim i As Long
  MeFaktorial =  1 
  For i = N To m
    MeFaktorial = MeFaktorial * i
  Next i
End Function