Чтение текстового файла блоками

Public Class UserData
  Public Property Name As String
  Public Property Texts As List(Of String)
End Class

Imports System.Text.RegularExpressions
Public Class Form1
    Dim A1, A, A2, A3, d(), Rez1 As String
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Qs1")
        ComboBox1.Items.Add("Ls1")
        ComboBox1.Items.Add("Zs")
        A = IO.File.ReadAllText("11.txt", System.Text.Encoding.Default)
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Str As String
        ListBox1.Items.Clear()
        A1 = ComboBox1.SelectedItem
        If A1 = "Qs1" Then A2 = "#---Qs1---" : A3 = "#---Ls1---"
        If A1 = "Ls1" Then A2 = "#---Ls1---" : A3 = "#---Zs1---"
        If A1 = "Zs" Then A2 = "#---Zs1---" : A3 = "#"
        Label2.Text = A2
        Label1.Text = A1
        '  Оставляем между заданными словами
        Str = Regex.Match(A, A2 & "(.*?)" & A3, RegexOptions.IgnoreCase Or RegexOptions.Singleline).Groups(0).Value
        Str = Str.Replace(A2, "")
        Str = Str.Replace(A3, "")
        d = Split(Str, vbNewLine)
        For i = 0 To UBound(d)
            ListBox1.Items.Add(d(i) & vbCrLf)
        Next
    End Sub
End Class

For i = 1 To d.Count - 2

Public Class Form1
    'На форме ComboBox и ListBox без дополнительных настроек, файл data.txt находится вместе с экзешником
 
    Private _dataSet As DataSet
    Private _bindingForCombo As BindingSource
    Private _bindingForList As BindingSource
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        _dataSet = New DataSet()
        Dim tblBlocks As DataTable = _dataSet.Tables.Add("Blocks")
        With tblBlocks 'таблица блоков [id,имя]
            .Columns.Add("BlockId", GetType(Integer))
            .Columns.Add("Name", GetType(String))
        End With
        Dim tblData As DataTable = _dataSet.Tables.Add("Data")
        With tblData 'таблица всех значений [id блока, значение]
            .Columns.Add("BlockId", GetType(Integer))
            .Columns.Add("Value", GetType(String))
        End With
 
        'связь между таблицами, по которой производится реляция таблицы блоков к значениям
        _dataSet.Relations.Add("RelationBlockId", tblBlocks.Columns("BlockId"), tblData.Columns("BlockId"), True)
 
        'класс осуществляет проводку сценариев данных к комбо и наоборот
        _bindingForCombo = New BindingSource(_dataSet, "Blocks")
 
        'привязка источника данных к комбо
        With Me.ComboBox1
            .DataSource = _bindingForCombo
            .DisplayMember = "Name"
        End With
 
        'здесь осуществляется привязка к источнику комбо и данные фильтруются по согласно реляции таблиц по выбранному значению
        _bindingForList = New BindingSource(_bindingForCombo, "RelationBlockId")
 
        'привязка источника данных к списку
        With Me.ListBox1
            .DataSource = _bindingForList
            .DisplayMember = "Value"
        End With
 
        'чтение данных и заполнение таблиц
        Using reader As New IO.StreamReader("Data.txt")
            Dim blockName As String = Nothing ' имя блока
            Dim blockId As Integer = -1       'id блока
            Do
                Dim line As String = reader.ReadLine()
                If line Is Nothing Then
                    Exit Do
                End If
 
                If line.StartsWith("#") Then
                    blockId += 1
                    blockName = line.Substring(4, line.IndexOf("-"c, 4) - 4)
                    tblBlocks.Rows.Add(blockId, blockName)
                Else
                    Debug.Assert(blockName IsNot Nothing) 'контроль правильности данных - данные должны начинаться с имени блока (вместо можно внедрить исключение)
                    'также можно проверять на blockId <> -1, а переменную blockName опустить
                    tblData.Rows.Add(blockId, line)
                End If
            Loop
        End Using
 
    End Sub
End Class

    Private di As Dictionary(Of String, String())
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim s As String = IO.File.ReadAllText("11.txt", System.Text.Encoding.Default)
        Dim ss As String() = s.Split({"#"c}, StringSplitOptions.RemoveEmptyEntries)
        di = New Dictionary(Of String, String())
        For Each str As String In ss
            Dim ar = str.Split({vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
            Dim key = ar(0).Trim("-")
            Array.Copy(ar, 1, ar, 0, UBound(ar))
            Array.Resize(ar, UBound(ar))
            di.Add(key, ar)
        Next
        ListBox1.DataSource = di.Keys.ToArray
        ListBox1.SelectedIndex = 0
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.DataSource = di.Values(ListBox1.SelectedIndex)
    End Sub