Ayuda esque el profe nos dejo una tarea de arreglos pero no nos quiso explicar, lo que tengo que hacer es que al aplastarle al boton guardar se tiene que guardar la informacion en la memoria y borrar y volver a escribir todo en 3 text box y volver a borrar 5 veces y al dar clic en el boton imprimir tiene que aparecer las 5 cosas que escribiste en los 3 text box , solo que tengo un problema con el codigo y no se cual es, lo ice como dicen todos los tutoriales y nada, el error es que aparece 5 veces lo ultimo que escribi antes de dar clic en guardar... ayudaa por favor!!!!:llorar:
aqui esta el codigo el command1 es guardar y el command2 es imprimir, porfavor alguien digame el error!!!

Dim a() As String

Private Sub Command1_Click()

ReDim a(1 To 3) As String
a(1) = Text1
a(2) = Text2
a(3) = Text3

ReDim Preserve a(1 To 6)
a(4) = Text1
a(5) = Text2
a(6) = Text3

Text1 = "": Text2 = "": Text3 = ""

End Sub

Private Sub Command2_Click()

Text4 = a(1) + a(2) + a(3) + a(4) + a(5) + a(6)

End Sub

esto es solo de 2 pero si funciona con 2 funcionara con 5 :/