Const maxvalue As Double = 9999999999999999D

Public Function Binkoeff(ByVal n As Long, ByVal k As Long) As Double
    Dim i As Long
    Dim P As Double
    ' Const maxvalue As Double = 9999999999999999D
 
    P = 1
    If k * 2 > n Then n = n - k
    For i = 1 To k
        P = P * (n - k + i) / i
        ' If P > maxvalue Then P = -1: Exit For
    Next i
 
    Binkoeff = P    
 
End Function