Imports System

Public Module Module1

    Public Sub Main()

        Dim temp As Double

        Console.WriteLine("Enter the current temperature, in degrees centigrade.")

        temp = Console.ReadLine()

        If temp<=0

            Console.WriteLine("At" & " " & temp & " degrees centigrade, water will be a solid.")

        Else If temp>=100

            Console.WriteLine("At" & " " & temp & " degrees centigrade, water will be a gas.")  

            Else Console.WriteLine("At" & " " & temp & " degrees centigrade, water will be a liquid.")  

        End If          

    End Sub

End Module