*** il ciclo devi aprirlo perima di lavorare sul file ***

For i = 1 To List1.ListCount -1

List1.ListIndex = i

Open TuoFile For Append As #1
Print #1, List1.Text
Close

Next i