Private Sub Form_Activate()
 
Dim n&, m&, i&, P#
 
n = InputBox("n = ?", , 1)
m = InputBox("m= ?", , 1)
P = 1
For i = 1 To m
  P = P * n / i
  n = n - 1
Next i
MsgBox P
 
End Sub

n_ueber_k = n!  / (n - k)!  /  k!

Gruss,

Zardoz