Option Compare Database

Option Explicit

Private Sub cmdCalc_Click()

Dim num As Integer, fact As Long

Dim x As Integer

num = Abs(Val(txtNum.Text))

txtNum.Text = num

fact = 1

For x = 2 To num

fact = x * fact

Next

TxtFact.Text = fact

End Sub