VB.Net by API/System/ArgumentOutOfRangeException

ArgumentOutOfRangeException.Message

  
 
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Tester
    Public Shared Sub Main
        Dim number As Decimal
        number = CDec(Val("123.123"))
        Console.WriteLine("Factorial(" & number & ")... ")
        Console.WriteLine(Factorial(number))
        
    End Sub
    Public Shared Function Factorial(ByVal number As Decimal) As Decimal
        Select Case number
            Case Is < 0
                Throw New ArgumentOutOfRangeException( _
                    "Negative numbers not allowed.")
            Case Is = 0
                Return 1
            Case Else
                Return number * Factorial(number - 1)
        End Select
    End Function

End Class