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