If Len(Dir$("c:\List1.txt", vbNormal)) > 0 Then
      FN = FreeFile
      Open "c:\List1.txt" For Input As #FN
        Do While Not EOF(FN)
          Input #FN, aa
          List1.AddItem aa
        Loop
      Close FN
    End If

FO = FreeFile
    Open "c:\List3.txt" For Output As #FO
      For z = 0 To List1.ListCount - 1
        Print #FO, List1.List(z)
      Next z
    Close FN

Was ich nicht auf anhieb kann muss ich ?ben