Связанные текстовые файлы

 lb1.Items.AddRange(avt) - массив писателей загнал в ЛБ1
 Dim s As String = lb1.SelectedItem
        For i = 0 To pro.length - 1
            If s = pro(i) Then
                k = i + 1
                While pro(k) <> ""
                    lb2.Items.Add(pro(k))
                    k += 1
                End While
 
            End If
        Next

Private ar(), bk() As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    ar = My.Resources.author.Split(vbCrLf)
    bk = My.Resources.books.Split(vbCrLf)
    ListBox1.Items.Clear()
    ListBox1.Items.AddRange(ar)
    ListBox1.SelectedIndex = 0
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    ListBox2.Items.Clear()
    Dim bs As String = ListBox1.SelectedItem
    Dim j As Integer
    If bk.Contains(bs) Then
        For i = 0 To bk.Length - 1
            If bk(i) = bs Then
                j = i + 1
                Do While bk(j).Length > 1
                    ListBox2.Items.Add(bk(j))
                    j += 1
                    If j > bk.Length - 1 Then Exit Do
                Loop
                Exit For
            End If
        Next
    End If
End Sub

        Dim pro() As String = My.Resources.pr.Split(New String() {vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)

Public Class Author
    Inherits List(Of String)
    Public Property Name() As String
End Class

Public Class Form1
    Dim Authors As List(Of Author) 'Коллекция всех авторов и их книг
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim OFD As New OpenFileDialog
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            LoadFile(OFD.FileName)
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
 
            For Each avt As Author In Authors
                ListBox1.Items.Add(avt.Name) 'Заполняем наш ListBox1 именами авторов из сформированной коллекции
            Next
        End If
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        For Each Avt As Author In Authors
            If Avt.Name = sender.SelectedItem Then
                ListBox2.Items.Clear()
                ListBox2.Items.AddRange(Avt.Books.ToArray) 'Показываем все книги выбранного автора
            End If
        Next
    End Sub
 
    Public Sub LoadFile(FileName As String)
        Authors = New List(Of Author) 'Создаем новую коллекцию всех авторов и их книг
        For Each Line As String In IO.File.ReadAllLines(FileName, System.Text.Encoding.Default)
            If Not String.IsNullOrWhiteSpace(Line) Then
                Dim a As New Author 'Создаем новый класс автора
                a.Name = Line.Split("=")(0) 'Даем ему имя
                a.Books.AddRange(Line.Split("=")(1).Split(";")) 'Запоминаем его книжки
                Authors.Add(a) 'Добавляем нового автора в коллекцию
            End If
        Next
    End Sub
 
    Public Class Author
        Public Property Name As String
        Public Property Books As New List(Of String)
    End Class
End Class