Dim n As Long
Dim iDatei As Integer
Dim strDatei As String
 
strDatei = App.Path & "\MW_Links.txt"
iDatei = FreeFile
 
Open strDatei For Output As iDatei
For n = 0 To List1.ListCount - 1
    Write #iDatei, List1.List(n)
Next n
Close iDatei