Imports System
Module HelloWorld
Public Sub Main()
Try
Dim a as Integer = 10
Dim b as Integer = 10
Dim c as Integer = a/(a-b)
Catch ex as Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Module