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.Message())
End Try
End Sub
End Module
Attempted to divide by zero.