Promedio en VB .Net, en este el usuario pone la cantidad de materias

Module Module1

'Autor: CARRARO 2011
Sub Main()
Dim Suma As Double
Dim Contador As Integer, Numero As Integer
Dim Calif As Double, Promedio As Double
Suma = 0 : Contador = 0
Calif = 0 : Promedio = 0 : Numero = 0
Console.WriteLine("********Promedio en VB .Net**********")
Numero = Val(InputBox("¿Cuántas materias? ", "Promedio en VB .Net", ""))
If (Numero <= 0) Then
MsgBox("El número de materia no debe ser cero", MsgBoxStyle.Critical, "Aviso")
Else
Console.WriteLine("Promedio para " + CStr(Numero) + " materias")

While Contador < Numero
Contador += 1
Console.WriteLine("Calificación no. " + CStr(Contador))
Calif = Val(InputBox("Introduce calificación " & CStr(Contador), "Promedio en VB .Net", ""))
Console.WriteLine(CStr(Calif))
Suma += Calif

End While
Promedio = Suma / Contador
Console.WriteLine("¡Hecho! El promedio es:" + CStr(Promedio))
MsgBox(Promedio, MsgBoxStyle.Information, "Resultado, el promedio es:")

End If

End Sub


End Module