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()

        IF intIndex < 0 OR intIndex > 3

            Console.WriteLine("Index is out of range")

        End If

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

    End Sub

End Module