Otro ejemplo del Ciclo For.

Este es para ingresar datos de 5 alumnos....

Dim nombre As String
Dim Apellido As String
Dim Edad As Byte
Dim Promedio As Double
Dim c As Byte
List1.Clear

For c = 1 To 5
nombre = InputBox("ingrese Nombre")
List1.AddItem "Nombre: " & nombre
Apellido = InputBox("ingrese Apellido")
List1.AddItem "Apellido: " & Apellido
Edad = InputBox("ingrese Edad")
List1.AddItem "Edad: " & Edad
Promedio = InputBox("ingrese Promedio")
List1.AddItem "Promedio: " & Promedio

Next

End Sub
[u]

mira vos hace al mas facil como es de alexi y tu programacion tiene muchas palabras

vos ps la informacione sta bien detallada pero solo q como que esta muy largo