Загрузка текста в ListView: как убрать диалог выбора файла

OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"
    OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments 
    If Not OpenFileDialog1.ShowDialog= DialogResult.OK Then Exit Sub
    Dim textPath As String = OpenFileDialog1.FileName
    Dim AllItems() As String = IO.File.ReadAllLines(textPath)
    Dim cols As Integer = ListView1.Columns.Count 
        
    For i = 0 To AllItems.Length - 1 Step cols
        Dim lvItem As New ListViewItem(AllItems(i))
        For si = i + 1 To i + cols - 1
            lvItem.SubItems.Add(AllItems(si))
        Next
        ListView1.Items.Add(lvItem)
    Next

Dim textPath As String = "путь к файлу"
    Dim AllItems() As String = IO.File.ReadAllLines(textPath)
    Dim cols As Integer = ListView1.Columns.Count 
        
    For i = 0 To AllItems.Length - 1 Step cols
        Dim lvItem As New ListViewItem(AllItems(i))
        For si = i + 1 To i + cols - 1
            lvItem.SubItems.Add(AllItems(si))
        Next
        ListView1.Items.Add(lvItem)
    Next