SoloCodigo

muy buena  tarde   quisiera saber  si alguien  se me puede colaborar  con al go.
tengo unos algoritmos en seupdocodigo sobre almacenamiento de 7 vectores  y luego nos dan otro donde nos dice  que asumiendo que el vector anterior ya esta lleno decir cuantos elementos son mayores que 10 .

el porblema es que ingreso el seupdocodigo para el primer  algoritmo  y  no me da.. y  si este no me da  como hago el segundo

Dim X(7) As Double
Dim i As Integer
Dim h As Integer
 
 
 i = 0
h = Text1
 
     For i = 0 To Len(X(i))

    Next i
Print h

asi lo coloco el profe   pero  el da el ciclo 7 veces y me muestra 7 veces el mismo numero  si coloco print debajo de  for..
y si lo coloco  ahi donde esta  me lo muestra 1 vez pero   no cumple con el clico  de que  solo permita incluir  7 numeros  por teclado..

no quiero  que  me lo hagan solo que porfavor me expliquen como hacerlo por que llevo ya varios dias y no he podido

gracias