Dim srReader As StreamReader
        Dim bla As String
        Dim Einzelteile() As String
        Dim X As Integer = 0
 
        Try
            srReader = New StreamReader("Auktionen.txt")
            Do Until srReader.EndOfStream               ' Bis Dateiende erreicht
                bla = srReader.ReadLine                 ' Eine Zeile lesen
                Einzelteile = bla.Split("|")            ' In Einzelteile 
                ' zerlegen
                ListView1.Items.Add(Einzelteile(0))
                ListView1.Items(X).SubItems.Add(Einzelteile(1))
                ListView1.Items(X).SubItems.Add(Einzelteile(2))
                ListView1.Items(X).SubItems.Add(Einzelteile(3))
                ListView1.Items(X).SubItems.Add(Einzelteile(4))
                ListView1.Items(X).SubItems.Add(Einzelteile(5))
                Label5.Text = Einzelteile(6)
                X = X + 1
            Loop
            srReader.Close()
            srReader.Dispose()
        Catch
            ' Falls Detei nicht vorhanden
            MessageBox.Show("Datei 'Auktionen.txt' existiert nicht")
        Finally
            ListView1.OwnerDraw = False
            ListView1.View = View.Details
        End Try

 Dim X As Integer
 
        Dim bla As String
 
        Dim swWriter As StreamWriter = New StreamWriter("Auktionen.txt", False)
 
        For X = 0 To ListView1.Items.Count - 1
 
            bla = ListView1.Items(X).Text & "|" & ListView1.Items(X).SubItems( _
              1).Text & "|" & ListView1.Items(X).SubItems(2).Text & "|" & _
              ListView1.Items(X).SubItems(3).Text & "|" & ListView1.Items( _
              X).SubItems(4).Text & "|" & ListView1.Items(X).SubItems(5).Text & _
              "|" & Label5.Text
 
            swWriter.WriteLine(bla)    ' Schreibt einen Satz incl. CrLf
 
        Next X
 
        swWriter.Close()
 
        swWriter.Dispose()