Module Module1
Sub Main()
Dim A, B, C As Integer
A = 3
B = 0
Try
C = A Mod B
Catch Except As Exception
Console.WriteLine(Except.ToString())
End Try
End Sub
End Module
System.DivideByZeroException: Attempted to divide by zero.
at Module1.Main()