Public Function Combination(ByVal m As Long, ByVal n As Long) As Long
 Dim x() As Long
 ReDim x( 1  To m) As Long  'Индексы
 Dim i As Long, k As Long 'Позиции
 Dim s As String          'Комбинация в строковом виде
 Dim l As Long            'Счётчик комбинаций
 
 'Необязательная инициализация
 'For i = 1 To m
 '   x(i) = i
 'Next i
 
 k =  1  '= m, если была проведена закомментированная выше инициализация
 Do
    If x(k) < n - m + k Then
       x(k) = x(k) +  1 
       For i = k +  1  To m
          x(i) = x(k) + (i - k)
       Next i
       k = m
    
       'Здесь комбинация готова к выдаче. Не печатаем её, хотя можем это
       'сделать, раскомментировав код печати ниже. Просто увеличиваем счётчик
       'комбинаций.
       l = l +  1 
'       'Печать комбинации
'       s = x(1)
'       For i = 2 To m
'          s = s & "," & x(i)
'       Next i
'       Debug.Print l, s
     
    Else
       If k <=  1  Then Exit Do
       k = k -  1 
    End If
 Loop
 Combination = l
End Function