Public Class Tester Public Shared Sub Main Dim DaysOfTheWeek() As String ReDim DaysOfTheWeek(7) DaysOfTheWeek(0) = "Monday" DaysOfTheWeek(1) = "Tuesday" DaysOfTheWeek(2) = "Wednesday" DaysOfTheWeek(3) = "Thursday" DaysOfTheWeek(4) = "Friday" DaysOfTheWeek(5) = "Saturday" DaysOfTheWeek(6) = "Sunday" Console.WriteLine(DaysOfTheWeek( 1)) End Sub End Class
Tuesday