Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        Dim collection() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}

        For Each value As Integer In collection

            Console.WriteLine("Value: " & value)

        Next

    End Sub

End Module