SoloCodigo

Function Factorial(nf As Long) As Long
'Dim nf As Long
    If nf = 1 Or nf = 0 Then
        Factorial = 1
    Else
        Factorial = nf
        While nf > 1
            Factorial = Factorial * (nf - 1)
            nf = nf - 1
        Wend
    End If
End Function
B)