Imports System

​

Public Module Modulel

    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 text")

        intIndex = Console.ReadLine()

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

    End Sub

End Module