MCKSys Argentina se la pusiste peor con Arrays.
No se porque dice eso...
De todas formas, una vez que tienes las notas, sólo debes recorrerlas para poder hacer las cuentas pedidas:
Private Sub Command1_Click()
Dim n As Long
Dim I as Long
Dim Notas(1 to 10) as Long 'Guarda las notas como numeros enteros
Dim Mediocres as Long
Dim Aplazados as Long
Dim Promocionados as Long
For I = 1 To 10
n = Val(InputBox("Dame una NOTA", "INGRESA LOS NOTAS########")) 'pide numero
Notas(i) = n 'guarda numero
Next i
'Una vez guardados los 10 numeros, ahora hay que contar
'Continua aqui!
Mediocres = 0
Aplazados = 0
Promocionados = 0
For I = 1 To 10
If Notas(i) < 4 then
Aplazados = Aplazados + 1
ElseIf Notas(i) >= 6 then
Promocionados = Promocionados + 1
Else
Mediocres = Mediocres + 1
endif
Next I
End Sub
Y asi ya tienes los valores pedidos.
@Gabriel094: Revisa el código. Si hay algo que no entiendes, pregunta. Es la única forma en que aprenderás.