Development VB.Net

Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
         Shared Sub Main(  )
             Try
                 Dim a As Double = 5
                 Dim b As Double = 0
                 Console.WriteLine("Dividing {0} by {1}...", a, b)
                 Console.WriteLine("{0} / {1} = {2}", _
                     a, b, DoDivide(a, b))
             ' most derived exception type first
             Catch e As System.DivideByZeroException
                 Console.WriteLine("DivideByZeroException caught!")
             Catch e As System.ArithmeticException
                 Console.WriteLine("ArithmeticException caught!")
             ' generic exception type last
             Catch
                 Console.WriteLine("Unknown exception caught")
             End Try
         End Sub 'Main
         Shared Public Function DoDivide(ByVal a As Double, ByVal b As Double) As Double
             If b = 0 Then
                 Throw New System.DivideByZeroException(  )
             End If
             If a = 0 Then
                 Throw New System.ArithmeticException(  )
             End If
             Return a / b
         End Function
   
End Class