Try Catch with Finally clause : Finally « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. Finally

Option Strict On
 Imports System
 Class Tester
     Public Shared 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

     Shared Sub Main( )
         Try
             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")

         Catch e As System.DivideByZeroException
             Console.WriteLine("DivideByZeroException caught!")
         Catch
             Console.WriteLine("Unknown exception caught!")
         Finally
             Console.WriteLine("Close file here.")
         End Try
     End Sub
 End Class

Open file here
DivideByZeroException caught!
Close file here.