Visual Basic - error en el codigo

intento con esta solucion que me envio, para guardar el listbox en un archivo.txt pero me sale esto
Open App.Path & \"\\estadisticas.txt\" For Output As #1
For i = 1 To List1.ItemData - 1 (aquí me señala itemdata como argumento no opcional)
Print #1, List1
Next i
Close #1

cual sería la solucion??

gracias

Este seria el codigo correcto

Open app.path & "Archivo.txt" For Output As #1
For i = 1 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1

En esta parte deje un error tuyo y se me olvido corregirlo...
For i = 1 To List1.ListCount - 1

debe ser:
For i = 0 To List1.ListCount - 1

Ups !!!, perdón a la hora que lo envie estaba en otra (No con la otra), anoche quise realizar los cambios, pero el deber me llamo antes de tiempo. César esta en lo correcto!!