Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
' Try block throws exception
Try
Console.WriteLine("In Throw Exception With Catch")
Throw New Exception("Exception in Throw Exception With Catch")
' catch exception thrown in Try block
Catch exceptionParameter As Exception
Console.WriteLine("Message: " & exceptionParameter.Message)
' Finally executes because corresponding Try executed
Finally
Console.WriteLine( _
"Finally executed in Throw Exception With Catch")
End Try
Console.WriteLine("End")
End Sub
End Class