Imports System
Public Class MainClass
Shared Sub Main()
' catch any NegativeNumberException thrown
Try
Throw New NegativeNumberException("Exception occurred")
Catch formatException As FormatException
Console.WriteLine(formatException.Message)
' diplay MessageBox if negative number input
Catch negativeNumberException As _
NegativeNumberException
Console.WriteLine(negativeNumberException.Message)
End Try
End Sub ' Main
End Class
Public Class NegativeNumberException
Inherits ApplicationException
Public Sub New()
MyBase.New("Illegal operation for a negative number")
End Sub ' New
' constructor for customizing error message
Public Sub New(ByVal messageValue As String)
MyBase.New(messageValue)
End Sub ' New
' constructor for customizing error message and specifying
' inner exception object
Public Sub New(ByVal messageValue As String, _
ByVal inner As Exception)
MyBase.New(messageValue, inner)
End Sub
End Class