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