Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim months(0 To 11) As String

        months(0) = "January"

        months(1) = "February"

        months(2) = "March"

        months(3) = "April"

        months(4) = "May"

        months(5) = "June"

        months(6) = "July"

        months(7) = "August"

        months(8) = "September"

        months(9) = "October"

        months(10) = "November"

        months(11) = "December"

        For x = 0 To 11 'bracket must be closed after 3 or will all be CAPS!

            'Console.WriteLine(UCase(Left(months(x), 3)) & ": Month " & x + 1 & " - " & months(x))

            Console.WriteLine(months(x).substring(0, 3) & ": Month " & x + 1 & " - " & months(x).toUpper)

        Next

    End Sub

End Module

​