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
Console.WriteLine("The day is: " & daysWeek(val1))
Console.WriteLine("Invalid entry.")