Cómo puedo calcular el promedio de calificaciones?

Tengo un ejercicio que la letra dice: En un colegio se están preparando las últimas calificaciones y dependiendo del promedio de notas se debe emitir un juicio final. Si la nota esta es 1 o 2 deberá mostrar “Examen a febrero”, si la nota está entre 3 y 6 deberá mostrar “Examen a diciembre”, si la nota se encuentra entre 7 y 11 deberá mostrar “Aprueba” y si la nota es 12 deberá mostrar “Aprueba con honores”. Para realizar el cálculo de promedio se deberá pedir el ingreso de 5 calificaciones: matemática, física, biología, química y derecho. Se recomienda el uso de array.

Aclaro que trabajo con VB.Net 2017.

Les adjunto lo que vengo haciendo, a ver si me pueden dar una manito porque me tira cualquier resultado:

Dim materia, suma, promedio As Integer

MsgBox("Ingrese notas para las siguientes materias...")

materia = InputBox("Matemática")
materia = InputBox("Física")
materia = InputBox("Biología")
materia = InputBox("Química")
materia = InputBox("Derecho")

For i = 0 To materia
suma = suma + materia
promedio = suma / Val(materia)
If (promedio >= 1 And promedio <= 2) Then
MsgBox("El promedio de notas es: " & promedio & " Examen a febrero")
End If

If (promedio >= 3 And promedio <= 6) Then
MsgBox("El promedio es: " & promedio & " Examen a diciembre")
End If

If (promedio >= 7 And promedio <= 11) Then
MsgBox("El promedio es: " & promedio & " Aprueba")
End If

If promedio = 12 Then
MsgBox("El promedio es: " & promedio & " Aprueba con honores")
End If

Next
End Sub
End Class