El caso es  que cuando agrego nombres  a la lista   LIST2 y agregarlo a un archivo.TXT todo marcha muy bien pero  necesito que cuando regrese algun otro momento al FORM y vuelva a agregar mas nombres esten ahi los nombres agregados anteriormente asi que hice otra lista llamada LIST3 como un respaldo para que se agregue a LIST2 pero  al parecer mi problema son los INDEX.. como le puedo hacer ????

es este el codigo y desactive unas cosas porque estoy  atorado en esto...  ojo por favor  ayudenme  porfis..
 



Private Sub Command1_Click()

'List2.AddItem List3


List2.AddItem Text1.Text                 'AGREGO A LA LISTA
'List3.AddItem Text1.Text
Text1.Text = ""                      'LIMPIO TEXTBOX
List2.AddItem List2
'List3.AddItem List3

If List2.ListIndex = -1 Then Exit Sub
List2.RemoveItem List2.ListIndex

'If List3.ListIndex = -1 Then Exit Sub
'List3.RemoveItem List3.ListIndex

Call GuardarArchivo
End Sub

Private Sub GuardarArchivo()

Dim i As Integer                                'AGREGO AL ARCHIVO NOMBRES1
Open "c:\malpica\nombres1.txt" For Output As #1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

'Open "c:\malpica\nombres2.txt" For Output As #1  'AGREGO AL ARCHIVO NOMBRES2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Command2_Click()   ' BOTON PARA ORDENAR ALFABETICAMENTE
List1.Clear
For x = 0 To (List2.ListCount - 1)
    List1.AddItem List2.List(x)
Next
End Sub

Private Sub Command3_Click()    ' BOTON PARA ELIMINAR VARIOS
List2.RemoveItem List2.MultiSelect - 1

End Sub

Private Sub Command4_Click()     'BOOTON PARA MODIFICAR
List2.RemoveItem List2.ListIndex
List2.AddItem Text2.Text

End Sub

Private Sub Command5_Click()  ' BOTON PARA ELIMINAR UNO

List2.RemoveItem List2.ListIndex   'elimino de la lista2

Open "c:\malpica\nombres1.txt" For Output As #1 'elimino de archivo nombres1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

List3.AddItem List2

'List3.RemoveItem List3.ListIndex   'elimino de la lista3
'Open "c:\malpica\nombres2.txt" For Output As #1   'elimino del archivo nombres2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Form_Load()

'Dim i As Integer
'Open "c:\malpica\nombres1.txt" For Output As #1
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1
'List2.AddItem List3

End Sub