Visual Basic.NET - ayuda vb aplicacion de consola

Imports System.Console

Module Module1

    Sub Main()

        Dim temp(24) As Decimal

        Dim hr As Integer

        For hr = 1 To 24

            WriteLine("Escribe la temperatura a la hora " & hr)

            temp(hr) = ReadLine()

        Next

        Array.Sort(temp)

        WriteLine("La temperatura mas alta son " & temp(24) & " grados")

        WriteLine("La temperatura mediana son " & temp(12) & " grados")

        WriteLine("La temperatura mas baja son " & temp(1) & " grados")

        ReadLine()

    End Sub

End Module