Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim places(0 To 3) As String

        places(0) = "England"

        places(1) = "Northern Ireland"

        places(2) = "Scotland"

        places(3) = "Wales"

        For x = 0 To 3

            Console.WriteLine(places(x))

        Next

    End Sub

End Module

​