Imports System

​

Public Module Module1

    Public Sub Main()

        Dim arrName(3) As String

        arrName(0) = "Ben"

        arrName(1) = "Jen"

        arrName(2) = "Ken"

        arrName(3) = "Pen"

        Dim intIndex as Integer

        Console.WriteLine("Enter index")

        intIndex = Console.ReadLine()

        Console.WriteLine( "Name: " & arrName(intIndex) )

   End Sub

​

End Module