Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim pH as Integer

        Console.WriteLine("Enter the pH level")

        pH = Console.ReadLine()

        IF pH > 1 AND pH < 7 THEN

            Console.WriteLine("It is acidic")

        ELSEIF pH = 7 THEN

            Console.WriteLine("It is neutral")

        ELSEIF pH > 7 AND pH < 15 THEN

            Console.WriteLine("It is basic")

        ELSE

            Console.WriteLine("Error, invalid number")

        END IF 

        End Sub

End Module