Factorial help

[DealErSing]

i need to write a code that

when the user click a command button, VBA will take the number from a textbox and calculate the factorial,

the only problem is that i can't use the factorial function, i must use a "do..loop" i searched everywhere and everyone uses the factorial function

[Bob Phillips]

Function MyFact(val As Variant) As Long
Dim i As Long

val = Int(val)
MyFact = val
For i = val - 1 To 2 Step -1

MyFact = MyFact * i
Next i
End Function