ayuda con vector

[dasslogan]

¡Hola! Necesito hacer la carga de entrada de personal en una base de datos, cada persona tiene asignado un número de identificacion (ej: Un Nº de tarjeta). Se me ocurrieron muchas opciones para hacerlo, la más práctica es utilizar un vector y cargarlo mediante un "inputbox". Además, en el "input", seria exelente que apareciera un contador que mostrara el orden en el que se va haciendo la carga, de esta manera, el "data entri" sólo tendría que introducir la hora y dar ENTER.

La idea sería asi:
dim personal(210)
[aqui necesitaría la ayuda para repetir el bucle
del "inputbox" y cargarlo al vector, mostrando el número de secuencia].

with entrada.recordset
.addnew
!a1=personal(1)
!a2=personal(2)
!a3=personal(3)
sucesivamente hasta 210 jE!
.update
end with


Desde ya,
¡Muchas gracias!.

[David]

Pues es fácil. Hazlo así:

Código:

Dim Looping As Byte
For Looping = 0 To UBound(personal)
     personal(Looping) = InputBox("Ingresa dato Nº " & Looping, "Agregar")
Next Looping