Dim s1 As String
            Dim cArray As ArrayList
            'cArray = arrlist1.Clone()
 
            Dim aln As New ArrayList()
            For Each s1 In cArray
 
                If InStr(s1, "TESTEINLAGE") = 0 Then
                    aln.Add(s1)
 
                End If
            Next
            Dim sa() As String
 
            sa = aln.ToArray(GetType(System.String)) 'aus der arraylist ein 
            ' string array machen
            modi = Join(sa, vbCrLf) 'aus stringarray einen string machen