Чтение текста построчно

Imports System
Imports System.IO
Imports System.Text
Public Class Form1
    Dim path As String = "D:\1.txt"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As StreamReader = New StreamReader(path)
        TextBox1.Text = sr.ReadLine()
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim generator As New Random
        Dim кол_строк = 300
        TextBox1.Text = построчно(generator.Next(1, кол_строк))
        TextBox2.Text = построчно(generator.Next(1, кол_строк))
        TextBox3.Text = построчно(generator.Next(1, кол_строк))
    End Sub
    Function построчно(ByVal g As Integer) As String
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\файл_с_строками.txt")
        Dim i As Integer, st As String
        While sr.Peek <> -1
            i = i + 1
            st = sr.ReadLine()
            If i = g Then
                Return st
                Exit While
            End If
        End While
    End Function

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists(My.Application.Info.DirectoryPath & "\config.ini") = False Then
            My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\config.ini", "0", True)
        End If
        Dim c = My.Computer.FileSystem.ReadAllText(My.Application.Info.DirectoryPath & "\config.ini")
        c = CInt(c) + 1
        TextBox1.Text = построчно(c)
        c = CInt(c) + 1
        TextBox2.Text = построчно(c)
        c = CInt(c) + 1
        TextBox3.Text = построчно(c)
        My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\config.ini", c, False)
    End Sub
    Function построчно(ByVal g As Integer) As String
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\файл_с_строками.txt") 'файл с строками
        Dim i As Integer, st As String
        While sr.Peek <> -1
            i = i + 1
            st = sr.ReadLine()
            If i = g Then
                Return st
                Exit While
            End If
        End While
    End Function

dim text as string
text = My.computer.filesystem.readalltext("Имя файла")

Dim text_perlines() As String
linearray = Split(text , vbcrlf)

dim temp as string
dim array_with_k(text_perlines.length-8) as string
 
for i = 8 to text_perlines.length step 1
temp=text_perlines(i)
    for i2 = 0 to instr(temp, "/*")-1 step 1
    array_with_k(i)=array_with_k(i)+temp(i2)
    next i2
next i

X3 = vbCrLf & Str3 & vbCrLf & Str4 & vbCrLf & Str5 & vbCrLf & Str6 & vbCrLf & Str7 & vbCrLf & Str8 & vbCrLf & Str9 & vbCrLf & Str10

Str3
 
 
Str6
 
 
 
Str9

X3 = vbCrLf & Str3 & vbCrLf & Str4 & vbCrLf & Str5 & vbCrLf & Str6 & vbCrLf & Str7 & vbCrLf & Str8 & vbCrLf & Str9 & vbCrLf & Str10
Do While InStr(X3,vbCrLf & vbCrLf) > 0
    X3 = Replace(X3, vbCrLf & vbCrLf, vbCrLf)
Loop