oncelikle herkese kolay gelsin

vb6da fonksiyon yazıp çağırma olayı nasıl oluyo 
yada kısaca bi faktoriyel  hesabı yapan bişey yazabilirmisiniz iki dakka ben boyle yapıyorum hata veriyo sorun nerde

Option Explicit

Function Faktoriyel(x As Integer) As Double

    Dim i As Integer, sonuc As Double

    sonuc = 1

    For i = 2 To x

        sonuc = sonuc * i

    Next

    Faktoriyel = sonuc

End Function

Private Sub Form_Load()

Dim y, x As Integer

x = Val(InputBox("Sayı gir amk"))

y = Faktoriyel(x)

MsgBox y

End Sub 

Matematikten hiç anlamam, yaptım sanırım. Birbiriyle çarpışıyolar :D

Function Faktoriyel(x As Integer) As Double

For carpilacaklar = 1 To x
List1.AddItem carpilacaklar
Next carpilacaklar

sonuc = 1
For Faktoriyella = 1 To List1.ListCount - 1
sonuc = sonuc * List1.List(Faktoriyella)
Next Faktoriyella

MsgBox sonuc
End Function

Private Sub Form_Load()
Dim y, x As Integer
x = Val(InputBox("Sayı gir amk"))
Faktoriyel (x)
End Sub