Search in array VB.Net Exercise - Visual Basic Programming Course

Imports System
Public Class exercise73
    Public Shared Sub Main()
        Console.Write("Cuantos datos reservo: ")
        Dim repeticiones As Integer = Convert.ToInt32(Console.ReadLine())
        Dim numero As Single
        Dim listaNumeros As Single() = New Single(repeticiones - 1) {}

        For i As Integer = 1 To repeticiones
            Console.Write("Dime numero {0} para guardar en la lista: ", i)
            listaNumeros(i) = Convert.ToSingle(Console.ReadLine())
        Next

        Console.Write("Que numero comprueba en la lista? ")
        numero = Convert.ToSingle(Console.ReadLine())

        While Console.ReadLine() <> "end"

            For i As Integer = 1 To repeticiones
                If listaNumeros(i) = numero Then Console.WriteLine("El número {0} existe en la lista", numero)
            Next
        End While
    End Sub
End Class