Удобное хранение значений

Dim translateDict As Dictionary(Of String, String) = File.ReadLines("translates.txt") _
    .Where(Function(l) l.Contains("|")) _
    .Select(Function(l) l.Split({"|"c}, 2)) _
    .ToDictionary(Function(arr) arr(0), Function(arr) arr(1))

Dim lines() As String = File.ReadAllLines("c:\translates.txt")
        Dim translateDict As New Dictionary(Of String, String)
        For Each s In lines
            If s.Contains("|") Then
                translateDict.Add(s.Split("|")(0), s.Split("|")(1))
            End If
        Next
        'Заносим результат в ListView
        For Each el In translateDict
            ListView1.Items.Add(New ListViewItem({el.Key, el.Value}))
        Next

Dim translateDict As New Dictionary(Of String, String)
        Using reader As New Microsoft.VisualBasic.FileIO.TextFieldParser("c:\translates.txt")
            reader.Delimiters = {"|"}
            Dim fields() As String
            While Not reader.EndOfData
                fields = reader.ReadFields()
                translateDict.Add(fields(0), fields(1))
            End While
        End Using
        'Заносим результат в ListView
        ' ' '