Try with Finally : Finally « Language Basics « VB.Net

Try with Finally

Try with Finally
Imports System
Imports System.Text 
Imports System.Text.RegularExpressions

Public Class MainClass

    Shared Sub Main(ByVal args As String())
                 Console.WriteLine("Open file here")
                 Dim a As Double = 5
                 Dim b As Double = 0
                 Console.WriteLine("{0} / {1} = {2}", a, b, DoDivide(a, b))
                 Console.WriteLine("This line may or may not print")

                 ' most derived exception type first
             Catch e As System.DivideByZeroException
                 Console.WriteLine("DivideByZeroException caught!")

                 Console.WriteLine("Unknown exception caught!")

                 Console.WriteLine("Close file here.")

             End Try
    End Sub
         ' do the division if legal
         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 'DoDivide
End Class


Related examples in the same category

1.No exceptions occur in called methodNo exceptions occur in called method