tek forlu yaptım şuan önemli olanın sonuç oldugunu düşünerek ama faktoriyeli funcion olarak yapabilirsiniz yada yaparım isterseniz
text1 ve comman1 yerleştiriin formunuza

kod:
Private Sub Command1_Click()
Dim i, sonuc As Single
For i = 1 To 8
If i = 1 Then sonuc = 1
If i = 2 Then sonuc = sonuc / (i + i)
If i = 3 Then sonuc = sonuc / i * (i - 1) * (i - 2) + i * (i - 1) * (i - 2)
If i = 4 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) + i * (i - 1) * (i - 2) * (i - 3)
If i = 5 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) + (i - 2) * (i - 3) * (i - 4)
If i = 6 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) + i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5)
If i = 7 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6) + i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6)
If i = 8 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6) * (i - 7)
Next i
Text1.Text = sonuc
End Sub