Module Module1
Sub Main()
Try
AddNumbers(1, 2)
Catch Except As Exception
Console.WriteLine("Call generated error: " & Except.Message)
End Try
End Sub
Function AddNumbers(ByVal A As Integer, ByVal B As Integer) As Integer
Try
Throw New ArithmeticException()
Catch Except As Exception
Console.WriteLine(Except.Message)
End Try
End Function
End Module
|