Arreglos en Visual Basic

Module Module1
     'constante que sirve para poner un limite al array
     Const limite = 15
     'se crea un array de tipo real
     Dim lista_notas(limite) As Single

     Sub Main()
         'declaraciones de variables
         Dim numero As Integer
         Dim suma As Single
         Dim media As Single

         Console.Write("Introduzca numero de calificaciones: ")
         numero = Val(Console.ReadLine)
         If numero > limite Then
             Console.WriteLine("No se procesan mas de " & limite & " calificaciones")
         Else
             suma = 0
             Console.WriteLine("Introduzca calificaciones")
             'a medida que el usuario introduce las calificaciones
             'estas se colocan en el array
             For i = 0 To numero - 1
                 Console.Write("   Nota[" & (i + 1) & "]= ")
                 lista_notas(i) = Val(Console.ReadLine)
                 suma = suma + lista_notas(i)
                 Console.WriteLine()
             Next
             'se obtiene la media
             media = suma / numero
             Console.WriteLine("La media es: " & media)
             Console.WriteLine("-------------------------------------------------")
             Console.WriteLine("Lista de Calificaciones mayores a la media es")
             ' se recore el array buscando calificaiones mayores a la media
             For i = 0 To numero - 1
                 If lista_notas(i) > media Then
                     Console.WriteLine("       " & lista_notas(i))
                 End If
             Next
             Console.WriteLine("-------------------------------------------------")
         End If
         Console.WriteLine("presione una tecla para terminar...")
         Console.ReadLine()
     End Sub

 End Module