Function GetFactorial(intValue As Integer) As Double
If intValue <= 1 Then
GetFactorial = 1
Else
GetFactorial = GetFactorial(intValue - 1) * intValue
End If
End Function
Sub RecursiveFunction()
Debug.Print GetFactorial(3)
End Sub