Imports System

Public Module Array

    Public Sub Main()

        Dim nums(4) As Integer

        nums(0) = 1

        nums(1) = 2

        nums(2) = 3

        nums(3) = 4

        nums(4) = 5

        For Each element As Integer In nums

            Console.WriteLine(element)

        Next 

    End Sub

End Module