Private Function GetLine(ByVal Path As String, ByVal LinePosition As _
     Integer) As String
        Dim sr As New IO.StreamReader(Path)
        Dim position As Integer = 0
        Dim Line As String
        While sr.Peek > -1
            Line = sr.ReadLine()
            If LinePosition = position Then Return Line
            position += 1
        End While
        Return String.Empty
    End Function

Debug.WriteLine(Me.GetLine("PATH", 2))

        Dim sr As New IO.StreamReader("PATH")
        Dim position As Integer = 0
        Dim line As String
        While sr.Peek > -1
            line = sr.ReadLine
            Select Case position
                Case 1 : Me.ShowText(Me.TextBox1, line)
                Case 4 : Me.ShowText(Me.RichTextBox1, line)
            End Select
            position += 1
        End While
    Public Sub ShowText(ByVal Ctl As Control, ByVal Text As String)
        Ctl.Text = Text
    End Sub