Item su listbox

[FinalFantasy]

Ciaoo a tutti eccomi tornato...

Se ho il totale index di un listbox, come prendo i vari item a uno a uno x metterli in un file?

Grazie anticipatamente

[xegallo]

dim i as integer
open "c:\lista.txt" for binary as #1
   for i = 0 to list1.listcount -1
      put #1 ,, list1.list(i) & vbcrlf
   next i
close