If Not outfile = "" Then
            If line.StartsWith("[Hauptprogramm]".ToUpper) Then
               lines.RemoveAt(lines.Count - 1)  'Zeile am Ende entfernen
               IO.File.WriteAllLines(outfile, lines)
               lines.Clear()
               lines.Add(line) 'Zeile an den Anfang der neuen Liste 
               outfile = ""
            End If
        End If