Klavyeden girilen sayının faktöriyelini hesaplayan program

Sub faktoriyel()
       
        Dim i, sayi As Integer
            sayi = InputBox("bir sayı giriniz")
            tpl = 1
        For i = 1 To sayi Step 1
            tpl = tpl * i
        Next
            MsgBox tpl
   
    End Sub