Private Function faktoriyel()
faktoriyel = 1
For i = 1 To Text1
faktoriyel = faktoriyel * i
Next
End Function

Private Sub Command1_Click()
Text2 = faktoriyel
End Sub

Private Sub Form_Load()
End Sub
__________________