Function Factorial(N As Integer)
If N < 1 Then Exit Function
Factorial = 1
For i = 2 To N
    Factorial = Factorial * i
Next
End Function

Function Число_сочетаний(x, y)
    Число_сочетаний = Факториал(x) / Факториал(y) / Факториал(x - y)
End Function

Function Факториал(x)
    If x < 1 Then Exit Function
    Факториал = 1
    For i = 2 To x
        Факториал = Факториал * i
    Next
End Function

Function Число_сочетаний(ByVal x As Long, y As Long) As Double
Dim k As Double
k = x - y ' результата не дает
    Число_сочетаний = ФакториалX(x) / ФакториалY(y) / ФакториалXY(k) ' пишем ФакториалXY(k) потому что в "Function ФакториалXY(x-y)" аргумент функции не может быть формулой
End Function
Function ФакториалX(ByVal x As Long) As Double
Dim i As Long
    If x < 1 Then Exit Function
    ФакториалX = 1
    For i = 2 To x
        ФакториалX = ФакториалX * i
    Next
End Function
Function ФакториалY(ByVal y As Long) As Double
Dim i As Long
    If y < 1 Then Exit Function
    ФакториалY = 1
    For i = 2 To y
        ФакториалY = ФакториалY * i
    Next
End Function
Function ФакториалXY(k) As Double ' косяк с вычислением последнего аргумента??????
Dim i As Long
Dim x As Long, y As Long
k = x - y
    If k < 1 Then Exit Function
    ФакториалXY = 1
    For i = 2 To k
        ФакториалXY = ФакториалXY(k) * i ' если функцию записать как ФакториалXY(x-y) тоже нет смысла, т.к. значения X и Y не определены
    Next
End Function