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