Private Function Fakultaet(ByVal i&) As Long
    Dim n&
 
    Fakultaet = 1
    For n = 2 To i
        Fakultaet = Fakultaet * n
    Next n
End Function
 
Private Function N_Over_K(ByVal n&, ByVal k&) As Long
    N_Over_K = Fakultaet(n) / Fakultaet(n-k) * Fakultaet(k)
End Function