Public Function Binkoef(ByVal n As Integer, ByVal k As Integer) As String
 
        Dim P As Variant, i As Integer
        P = CDec(1)
        If k * 2 > n Then k = n - k
        For i = 1 To k
            P = CDec(P) * CDec(n - k + i) / CDec(i)
        Next i
 
        Binkoef = CStr(P)
End Function