Private Sub Form_Unload(Cancel As Integer)
 
    ' Datei in ein Array (hier: strArray) einlesen
    Dim strArray() As String
 
    Dim bFound As Boolean
    Dim i As Integer, j As Integer
 
        ' Datei öffnen usw...
        For i = 0 To UBound(strArray)
            bFound = False
            For j = 0 To List1.ListCount - 1
                If strArray(i) = List1.List(j) Then
                    bFound = True
                    Exit For
                End If
            Next j
            If bFound = False Then
                ' Zeile wurde in der Liste nicht gefunden also an Textdatei 
                ' anhängen:
                ' Print #F, .List(j)
            End If
        Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.