' Laden:
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Try
            With OpenFileDialog1
                .Title = "Datei öffnen"
                .InitialDirectory = Application.StartupPath
                .FileName = "Test.dat"
                .Filter = "Dateien (*.dat)|*.dat|Alle Dateien (*.*)|*.*"
                .RestoreDirectory = True
                If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    Dim fs As New FileStream(OpenFileDialog1.FileName, _
                      FileMode.Open, FileAccess.Read)
                    Dim strmReader As New StreamReader(fs)
                    Dim line As String = strmReader.ReadLine()      ' erste 
                    ' Zeile lesen
                    Dim start As Integer = 0
                    Do While line <> Nothing
                        Dim ende As Integer = line.IndexOf("\", start)    ' 
                        ' Ende des ersten Eintrags
                        Dim s1 As String = line.Substring(start, ende)    ' 
                        ' ersten Eintrag lesen
 
                        start = ende + 1                         ' Anfang des 
                        ' zweiten Eintrags
                        ende = line.IndexOf("\", start)          ' Ende des 
                        ' zweiten Eintrags
                        Dim s2 As String = line.Substring(start, ende - start)  _
                           ' zweiten Eintrag lesen
 
                        start = ende + 1                            ' Anfang 
                        ' des letzten Eintrags 
                        Dim s3 As String = line.Substring(start)    ' letzten 
                        ' Eintrag lesen
 
                        Dim lvi As New ListViewItem(New String() {s1, s2, s3})
                        ListView1.Items.Add(lvi)
 
                        start = 0                               ' Zurücksetzen
                        line = strmReader.ReadLine()            ' nächste Zeile 
                        ' lesen
                    Loop
                    strmReader.Close()
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    ' Eintrag hinzufügen:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim itms() As String = New String() {TextBox2.Text, TextBox3.Text, _
        TextBox4.Text}
        Dim lvi As New ListViewItem(itms)
        ListView1.Items.Add(lvi)
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub