' lokal speichern
        Dim oStream As New StreamWriter(My.Computer.FileSystem.CombinePath( _
          Application.ExecutablePath ,"ed-list.txt"))
        oStream.Write(sBuffer)
        oStream.Close()

        Dim lines() As String = Split(Liste_2, vbCrLf)
        For x As Integer = 0 To lines.Length - 1
            If Liste_Fertig.Contains(lines(x)) = False Then
                Liste_Fertig &= VbCrLf & lines(x)
            End If
        Next x