Imports System

Module ArithmeticOperators1

    Sub main()

        Dim b1 As Decimal
        b1 = 34.45
        b1 = b1 / 0
        Console.WriteLine(b1)

    End Sub

End Module