Entonces lo único que necesitas es tener un contador (una variable que tenga alcance en todo el módulo), y luego en vez de usar ese bucle For añade al siguiente elemento del array:
Código vb:
Ver originalNombre(Contador) = Text1.Text
Contador = Contador + 1
List1.AddItem Nombre(Contador)