' Application to demonstrate cross-language exception handling
Imports [MyClass]

Module Module1
    Sub Main()
        Dim obj As New Class1()

        Try
            obj.Test(-1)
        Catch e As ArgumentException
            Console.WriteLine("Exception: " & e.Message)
        End Try

        Console.WriteLine("All work done")
    End Sub
End Module