Ayuda buscando fallo en código procedimiento - Visual Basic 2005

[buckcherry]

Ya lo resolví. Todavía no me he parado a comparar para encontrar donde estaba el problema...
He desarrollado el procedimiento de nuevo, desde cero... y ahora funciona.

Es este:

Public Sub mostrarpornota(ByRef corte As Integer, ByRef porencima As Boolean)
Dim i, j As Integer
Dim suma As Double = 0
Dim media As Double = 0
Dim textomas As String = "Alumnos que superan el " & corte & ":" & vbCr
Dim textomenos As String = "Alumnos con nota inferior a " & corte & ":" & vbCr

For i = 0 To listalumnos.Count - 1
For j = 0 To listalumnos(i).listanotas.Count - 1
suma = suma + listalumnos(i).listanotas(j)
Next
media = suma / listalumnos(i).listanotas.Count()
If media >= corte Then
textomas = textomas & "Nombre: " & listalumnos(i).nombre & ". Nota media: " & media & vbCr
Else
textomenos = textomenos & "Nombre: " & listalumnos(i).nombre & ". Nota media: " & media & vbCr
End If
suma = 0
media = 0
Next
If porencima = True Then
MessageBox.Show(textomas, "Informe")
Else
MessageBox.Show(textomenos, "Informe")
End If


End Sub

Lo posteo por si sirve de referencia a alguien.