Module Test Public Sub Main() Dim sMonths() As String = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", Oct", "Nov", "Dec"} Console.WriteLine("Eleventh month of the year = {0}", sMonths(10)) End Sub End Module
Eleventh month of the year = Nov