VB.Net by API/System/ApplicationException

Inherits ApplicationException

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
     Try
        Console.WriteLine(SquareRoot(123.123))
        Console.WriteLine(SquareRoot(-123.123))
     Catch formatException As FormatException
        Console.WriteLine(formatException.Message)
     Catch negativeNumberException As _
        NegativeNumberException
        Console.WriteLine(negativeNumberException.Message)
     End Try
   End Sub
  Public Shared Function SquareRoot(ByVal operand As Double) As Double
     If operand < 0 Then
        Throw New NegativeNumberException( _
           "Square root of negative number not permitted")
     End If
     Return Math.Sqrt(operand)
  End Function " cmdSquareRoot

End Class

Public Class NegativeNumberException

  Inherits ApplicationException
  Public Sub New()
     MyBase.New("Illegal operation for a negative number")
  End Sub " New
  Public Sub New(ByVal messageValue As String)
     MyBase.New(messageValue)
  End Sub " New
  Public Sub New(ByVal messageValue As String, _
     ByVal inner As Exception)
     MyBase.New(messageValue, inner)
  End Sub

End Class

 </source>