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.