Pencarian data dalam array

Sub Main()
        Dim a() As String
        Dim index As Integer
        Dim i As Integer

        Console.Write("Masukan jumlah index : ")
        index = Console.ReadLine
        ReDim a(index)

        For i = 1 To index
            Console.Write("Masukan nama ke " & i & ": ")
            a(i) = Console.ReadLine
        Next
        Console.WriteLine()

        Console.Write("index ke berapa yang akan di tampilkan : ")
        index = Console.ReadLine
        Console.Write("di index ke " & index & " Namanya : " & a(index))
        Console.ReadKey()
    End Sub