Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer

        Console.WriteLine ("Enter A Number")

        Number = Console.ReadLine()

        IF Number MOD 2 = 0 THEN

            Console.WriteLine ("Number is Even")

        Else

            Console.WriteLine ("Number is Odd")

        END IF

        Console.ReadLine()

    End Sub

End Module