Development VB.Net

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