Imports System

Public Module Module1

    Public Sub Main()

        Dim DayNum as integer

        Console.WriteLine("Please enter the number to display the day")

        DayNum = console.ReadLine()

        Select DayNum

        Case 1 : Console.WriteLine("Monday")

        Case 2 : Console.WriteLine("Tuesday")

        Case 3 : Console.WriteLine("Wednesday")

        Case 4 : Console.WriteLine("Thursday")

        Case 5 : Console.WriteLine("Friday")

        Case 6 : Console.WriteLine("Saturday")

        Case 7 : Console.WriteLine("Sunday")

        Case Else 

            Console.WriteLine("Invalid Number- Please enter a number between 1 and 7!")

        End Select

    End Sub

End Module