Imports System

Public Module Module1

    Public Sub Main()

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

        Console.Writeline(week(0))

        Console.Writeline(week(1))

        Console.Writeline(week(2))

    End Sub

End Module