Dim s1 As String                                  ' wird als String deklariert
            Dim cArray As ArrayList           ' neues Array wird erstellt
 
            cArray = arrlist1.Clone()         'Kopie vom Globalen Array welches 
            ' in anderem Sub gefüllt wird.
 
            Dim aln As New ArrayList() 'neue Arraylist zum verarbeiten
            For Each s1 In cArray                  'jedes Objekt im carray wird 
            ' in den STRING s1 geladen
 
                If InStr(s1, "%MPF1", CompareMethod.Text) = 0 Then  '  
                ' ??????????????
                    aln.Add(s1)       ' ?????????????????
 
                End If
            Next
            Dim sa() As String    ' string array wird angelegt
 
            sa = aln.ToArray(GetType(System.String)) 'aus der arraylist ein 
            ' string array machen
            modi = Join(sa, vbCrLf) 'aus string array einen string machen