Imports System

Public Module Module1

    Public Sub Main()

        Dim val1 as integer

        Dim entry as integer

        Dim daysWeek as string() = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

        Console.WriteLine("Enter a number from 1-7 to find out what day it will be.")

        val1 = Console.ReadLine() - 1

        If val1 > 0 or val1 < 8 

            Console.WriteLine("The day is: " & daysWeek(val1))

        Else

            Console.WriteLine("Invalid entry.")

        End if

    End Sub

End Module