Imports System

Public Module Module1

    Public Sub Main()

        dim index as integer

        dim box(5) as integer

        dim total as integer = 0

        'setup loop

        for index = 1 to 5

        'store 5 elements in the array box

        console.writeline("Enter 5 numbers :")

        box(index) = console.readline()

    next

    'output the value where index = 3

    console.writeline("Enter a value for index :")

    index = console.readline()

    console.writeline("Value at Index = " & Index & " is " & box(index))

    End Sub

End Module