Imports System

Public Module Module1

    ' Exception Class

    Public Class TempIsZeroException : Inherits ApplicationException

        Public Sub New(ByVal message As String)

            MyBase.New(message)

        End Sub

    End Class

    ' Model Class

    Public Class Temperature

        Dim temperature As Integer = 0

        Sub showtemp()

            If (temperature = 0) Then

                Throw (New TempIsZeroException("Zero Temperature found"))

            Else

                Console.WriteLine("Temperature: {0}", temperature)

            End If

        End Sub

    End Class

    Public Sub Main()

        Dim temp As New Temperature()

        Try 

            temp.showTemp()

        Catch e As TempIsZeroException

            Console.WriteLIne("TempIsZeroException: {0}", e.Message)

        End Try

    End Sub

End Module