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