Dim I as LongDim Cadena as String'I va desde el primer al ultimo elementoFor I = 0 To 100 'Cadena tendrá el valor guardado en user(I) Cadena = user(I)Next I'I va NUEVAMENTE desde el primer al ultimo elementoFor I = 0 To 100 'Cadena tendrá el valor guardado en user(I) Cadena = user(I)Next I