Imports System

Public Module Module1

    Public Sub Main()

        'Takes a number as input

        Console.Write("Enter A Number: ")

        Dim number As Integer = Console.ReadLine()

        'Prints if the number is odd or even

        Dim oddOrEven As String = If(number Mod 2 = 0, "Even", "Odd")

        Console.WriteLine($"The number ""{number}"" is {oddOrEven}")

    End Sub

End Module