Чтение текста построчно - Visual Basic .NET - Ответ 2868234

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