VB.Net by API/System/ArgumentOutOfRangeException

ArgumentOutOfRangeException.Message

<source lang="vbnet">

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

 </source>