Загрузить значения из файла в ListView

Название 1|-347|25|0|44|0
Название 2|-335|77|35|42|16
Название 3|-579|12|55|3|5
 
и т.д.

Split

    Private Sub Загрузить_Click(sender As Object, e As EventArgs) Handles Загрузить.Click
        Dim i As Integer
        'Очищаем список:
        Do Until ListView1.Items.Count = 0 'Удаляй по элементу, пока элементов не останется
            ListView1.Items(0).Remove() 'Индекс 0 потому, что при удалении элементы списка сдвигаются вверх
        Loop
        'Загружаем список:
        Dim Чтение As New System.IO.StreamReader("file.txt")
        i = 0
        Do While Чтение.Peek() <> -1
            'Добавляем в список очередную строку и одновременно заполняем ее первый столбец:
            ListView1.Items.Add(Чтение.ReadLine)
            ListView1.Items(i).SubItems.Add(Чтение.ReadLine) 'Заполняем второй столбец очередной строки
            ListView1.Items(i).SubItems.Add(Чтение.ReadLine) 'Заполняем третий столбец очередной строки
            i = i + 1
        Loop
        Чтение.Close()
    End Sub

        Dim read() As String = File.ReadAllLines(My.Application.Info.DirectoryPath & "\Data.txt")

    Private Sub Загрузить_Click(sender As Object, e As EventArgs) Handles Загрузить.Click
        Dim i As Integer
        'Очищаем список:
        Do Until ListView1.Items.Count = 0 'Удаляй по элементу, пока элементов не останется
            ListView1.Items(0).Remove() 'Индекс 0 потому, что при удалении элементы списка сдвигаются вверх
        Loop
        'Загружаем список:
        Dim Чтение As New System.IO.StreamReader("file.txt")
        i = 0
        Do While Чтение.Peek() <> -1
            'Добавляем в список очередную строку
            Dim drop() As String = Split(Чтение.ReadLine, "|")
            ListView1.Items.Add(drop(0))
            ListView1.Items(i).SubItems.Add(drop(1))
            ListView1.Items(i).SubItems.Add(drop(2))
            ListView1.Items(i).SubItems.Add(drop(3))
            ListView1.Items(i).SubItems.Add(drop(4))
            ListView1.Items(i).SubItems.Add(drop(5))
            i = i + 1
        Loop
        Чтение.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        For i = ListView1.Items.Count - 1 To 0 Step -1
            If ListView1.SelectedIndices.Contains(i) Then
                ListView1.Items(i).Remove()
            End If
        Next
 
    End Sub

Private Sub Добавить(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Добавить.Click
'Добавляем в список строку и одновременно заполняем ее первый столбец:
LV.Items.Add(TextBox1.Text)
'Добавляем в строку еще два элемента:
LV.Items(LV.Items.Count - 1).SubItems.Add(TextBox2.Text)
LV.Items(LV.Items.Count - 1).SubItems.Add(TextBox3.Text)
LV.Items(LV.Items.Count - 1).SubItems.Add(TextBox4.Text)
LV.Items(LV.Items.Count - 1).SubItems.Add(TextBox5.Text)
LV.Items(LV.Items.Count - 1).SubItems.Add(TextBox6.Text)
End Sub

ListBox1.Items.AddRange(IO.File.ReadAllText(My.Application.Info.DirectoryPath & "\Data.txt", System.Text.Encoding.Default).Split("|"))

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        IO.File.WriteAllText("file.txt", String.Join(vbCrLf, ListBox1.Items.Cast(Of String).ToArray), System.Text.Encoding.Unicode)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(IO.File.ReadAllLines("file.txt", System.Text.Encoding.Unicode))
        Button2.Enabled = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("file.txt", vbCrLf + TextBox1.Text + "|" + TextBox2.Text + "|" + TextBox3.Text + "|" + TextBox4.Text + "|" + TextBox5.Text + "|" + TextBox6.Text, True)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(IO.File.ReadAllLines("file.txt", System.Text.Encoding.Unicode))
    End Sub

    Public Sub Добавить(_LV As ListView, i1 As String, i2 As String, i3 As String, i4 As String, i5 As String, i6 As String)
        'Добавляем в список строку и одновременно заполняем ее первый столбец:
        _LV.Items.Add(i1)
        'Добавляем в строку еще два элемента:
        With _LV.Items(_LV.Items.Count - 1).SubItems
            .Add(i2)
            .Add(i3)
            .Add(i4)
            .Add(i5)
            .Add(i6)
        End With
        _LV.Items(_LV.Items.Count - 1).Selected = True
        _LV.Focus()
    End Sub