Imports System Public Class MainClass Shared Sub Main() Dim x As Int32 = 100 Dim y As Int32 = 0 Dim k As Int32 Try k = x / y Catch e As Exception Console.WriteLine(e.Message) End Try End Sub End Class