Imports System

Public Module Module1

    Public Sub Main()

        Dim collection(99) As Integer

        For c As Integer = 1 To 100

            collection(c - 1) = c

        Next

    End Sub

End Module