Private Sub Command1_Click() Dim a As Double a = InputBox("sayı gir") MsgBox fak(a) End Sub Public Function fak(x) Dim a, b As Double b = 1 For a = 1 To x b = b * a Next fak = b End Function yasin karafil_0092@hotmail.com