Problemas con estructura

Bueno, la verdad es que parece ser que nos tenemos que suponer el problema
que tienes con la "estructura", porque no nos has comentado dónde está el
problema. :-)

Si deseas que se verifique el valor 0 en el bloque «Select Case», elimina de
la condición «If» el igual a 0, de ésta forma se verificarán todas las notas
a excepción de las inferiores a cero:

If Promedio < 0 Then
MessageBox.Show("Verifique los datos ingresados", _
"Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
End If

Asimismo, si no deseas que se ejecute el código que hay posterior al código
«Select Case», después del mensaje de error puedes incluir una instrucción
para abandonar el procedimiento:

If Promedio < 0 Then
MessageBox.Show("Verifique los datos ingresados", _
"Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)

' Abandonamos el procedimiento
Exit Sub
End If

TextBoxResultados = "La nota mas baja fue :" & Trim(Str(notaMenor))

Y ya puestos a suponer problemas, si «TextBoxResultados» es el nombre de un
control TextBox, específica explícitamente la propiedad «Text», si tu
intención es que se escriba la nota más baja, porque de no hacerlo,
obtendrás una advertencia que te indicará que «un valor de tipo 'String' no
se puede convertir en 'System.Windows.Forms.TextBox'.»:

TextBoxResultados.Text = "La nota más baja fue: " & ...

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.