Fijate estos 2:

http://tuts4you.com/download.php?view.3185
http://tuts4you.com/download.php?view.3212

El segundo es experimental, osea, puede fallar.

Saludos!

Como dijo el chavo del 8: No hay por dónde... 

Saludos!

Creo que en este caso Gabriel094 ha hecho el intento de solucionarlo por sus propios medios y no ha podido dar con la solucion.

En estos casos, estoy dispuesto a ayudar (al menos, hasta donde den mis conocimientos).

Por eso siempre pregunto por el código hecho hasta el momento y recuerdo que aquí no se hacen tareas.

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.

OK, veamos la primera parte: capturar los 10 valores:

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
 
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!
 
End Sub
 

Ahora, haz un bucle para recorrer la matriz y usa variables para contar las cantidades... 

Saludos!

El problema ya lo ha dicho Høl¥: el proggie esta mal diseñado (perdón mr.blood pero es así) y tiene un buffer overflow, con el cual podremos sobreescribir la sección .data hasta llegar el texto del mensaje.

Mas alla de eso, el maximo largo que podria tener el username seria de 9 chars (sin contar el zero final). Si se excede de ese limite, se comienza a escribir en el buffer destinado para guardar el serial (o pass).

Claro.

Mi idea no era corregir (ni nada por el estilo), sino mostrar un poco de programacion modular basica. 

Tambien puedes hacer una función que se encargue de calcular el factorial de un numero cualquiera.
En este ejemplo está definida en forma recursiva:

Function Factorial (n as long) as long
if n = 1 then
    Factorial = 1
else
    Factorial = n * Factorial(n-1)
end if
end function
 
Private Sub Command1_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text1.Text.SetFocus
End Sub
 
Private Sub Command2_Click()
    'fact = 1
    'num = Text1.Text
    'While num <> 0
    '    fact = fact * num
    '    num = num - 1
    'Wend
 
    'Text2.Text = fact
    if isnumeric(Text1.Text) then
        Text2.Text = Factorial(clng(Text1.Text)) 'si Text1 no tiene un numero, se generará un error, por eso usamos isnumeric antes
        Me.Text1.Enabled = False
        Me.Text2.Enabled = False
    else
        msgbox "Ingrese un numero!"
        text1.setfocus
    endif
End Sub
 
Private Sub Command3_Click()
End
End Sub
 

Y el código que tienes hasta ahora es.... ?

PD: Te informo que aquí no hacen tareas. 

Creo que debes replantearte la solucion al problema.

Si estuviera en tu lugar, iría por partes.

El enunciado te dice que trabajarás con 10 valores; entonces, haz un bucle para capturar los 10 valores (Lo más aconsejable para guardar los datos sería una matriz).

Luego, sólo debes recorrer la matriz, item x item e ir contando las cantidades pedidas.

No te pongo el código aquí por algo muy simple: si te doy el código, no aprendes.
La primera vez, fue eso: la primera vez; pero desde ahora debes TRATAR de solucionarlo por ti mismo.

Saludos!

PD: Intenta repensar el código y haz un intento. Si no te funciona, postéalo y lo veremos nuevamente.