Ускорить обработку строк файла в программе. Строк может быть огромное количество - Visual Basic .NET - Ответ 6086776

Public Class Form1
    Dim a() As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        Try
            ofd.ShowDialog()
            If Windows.Forms.DialogResult.Cancel = True Then
                Me.Close()
            End If
            a = IO.File.ReadAllLines(ofd.FileName, System.Text.Encoding.GetEncoding(866))
            Button2.Enabled = True
            Button1.Enabled = False
            Timer1.Start()
        Catch ex As Exception
        End Try
        If BackgroundWorker1.IsBusy <> True Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Try
            TextBox1.Text = a.Length
            For i As Integer = 0 To a.Length - 1
            DataGridView1.Rows.Add(a(i).Chars(3), a(i).Chars(5), a(i).Chars(7) & a(i).Chars(8) & a(i).Chars(9) & a(i).Chars(10), a(i).Chars(12) & a(i).Chars(13) & a(i).Chars(14) & a(i).Chars(15) & a(i).Chars(16) & a(i).Chars(17), a(i).Remove(0, 19))
            ProgressBar1.Maximum = a.Length
            ProgressBar1.Value += 1
            Application.DoEvents()
            TextBox2.Text = DataGridView1.Rows.Count - 1
            Next
        Catch ex As Exception
        End Try
    End Sub
End Class

DataGridView1.Rows.Add(a(i).Chars(3), a(i).Chars(5), a(i).Chars(7) & a(i).Chars(8) & a(i).Chars(9) & a(i).Chars(10), a(i).Chars(12) & a(i).Chars(13) & a(i).Chars(14) & a(i).Chars(15) & a(i).Chars(16) & a(i).Chars(17), a(i).Remove(0, 19))

 Dim v As New System.Text.StringBuilder(a(i))
             v.Remove(0, 3)
             b(i) = v.ToString
             Dim liter As New System.Text.StringBuilder(b(i))
             liter.Remove(1, liter.Length - 1)
             
                Dim sex As New System.Text.StringBuilder(b(i))
                sex.Remove(3, sex.Length - 3)
                sex.Remove(0, 2)
                
               Dim gr As New System.Text.StringBuilder(b(i))
               gr.Remove(8, gr.Length - 8)
               gr.Remove(0, 4)
              
                Dim dr As New System.Text.StringBuilder(b(i))
                dr.Remove(15, dr.Length - 15)
                dr.Remove(0, 9)
              
               DataGridView1.Rows.Add(liter, sex, gr, dr, ik)