Binom Hesabı?

hesaplamak istedigim şey şu,

------------------
n = Val(TextBox1.Text)
x = Val(TextBox2.Text)
p = Val(TextBox3.Text)
q = 1 - Val(TextBox3.Text)
n = 1
x = 1
For i = 1 To m
For j = 1 To k
For t = 1 To a
n = n * i
n -x = (n - x) * j
x = x * t
Next t
Next j
Next i
s = n / (n - x) * x
k = (p ^ n) * (q) ^ (n - x)
l = s * k
         
   MsgBox "İşlem Sonucunuz:" & l, vbInformation, "Excel Team"
ama (n-x) hesabında hata veriyo
----------------

yanlız bunu excel vba da yapıcam!
örnek bir soru;
n=10
x=6
p=0,5
cevap=(0,205078)
kolay gelsin