Ayuda con arreglos VB6

[JCNN]

hola que tas me podrian ayudar con una duda porfa es que tengo que hacer una simulacion con pilas y colas..... bueno lo que tengo que hacer es crear un text, un Command y dos Listbox......

primero tego declarado mi arreglo esto esta en un modulo

public arreglo (5) As String
public i As Integer
------------------------------------

en el command

for i =1 to 6

arreglo (5) = Text1.Text

me.List1.AddItem arreglo(5)

next
--------------------------------------------------

bueno hay solo llena pero con la primera letra o nombre que ponga lo que quiero hacer es que me llene el lis nombre por nombre no todo corrido y en el otro lis2 me lo llene pero perimo el ultimo numero o nombre que se agrego al arreglo