Visual Basic - ayudo en vb6, arreglos

Buenas necesito ayuda, resulta que falte a una clase y explicaron los arreglos en vb6, le pregunte a mis compañeros y ninguno me supo explicar, tambien el problema es que todavia no estamos trabajando directo en vb6 si no que lo hacemos a mano en español (lo contrario de vb6 que es en inlges) uno de los ejercicios es:
Leer un Arreglo de 50 elementos, calcular el promedio y decir cuántos hay por encima de él. De verdad agradeceria si alguien me lo puede explicar
Solo se hacer es princio que es:
Tipo numero = Arreglo [1..50] de enteros
y bueno de hay ago algo mas o menos pero no doypara resolverlo

de verdad agradeceria su colaboracion
GRACIAS

chu, bueno lo que tu quieres es una respuesta con valores de algoritmos o con el codigo de vb?

pero hasta donde me acuerdo, para declarar un arreglo en algoritmia de vb es

arreglo(49) entero, pero bueno, en cada pais tendran su forma de mostrar esto.

lo voy a poner en codigo de vb6 y ya luego tu lo traduces

Dim arreglo(49) as integer

'para llenar el arreglo
for i=0 to 49
arreglo(i)=round(i * rnd,0) 'llenandola con numeros aleatorios
next i

'para leer el arreglo
for i=0 to 49
debug.print arreglo(i)
next i

'para el promedio
suma=0
for i=0 to 49
suma=suma+arreglo(i)
next i
promedio=round(suma/50,0)

'para el promedio
for i=0 to 49
if arreglo(i)=promedio then
exit for
end if
next i

cantidad_despues_promedio=49-i

si no me equivoco es asi. no tengo el visual 6 a la mano, asi que lo estoy haciendo al mentaso. ya traducelo y has tu prueba de escritorio