Read & parse 1st 7 lines of text file

Private Sub btnFixation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFixation.Click
        'read file line by line; parse lines
        Dim myLine As String = ""
        Dim LineOfPeas As String
        Dim t As Integer
        Dim aryPeasLine(6) As String
        Dim objReader As New System.IO.StreamReader(Me.lblPeasFile.Text)

        Do While objreader.peek() <> -1
            PeasLine = PeasLine & objReader.ReadLine() & vbNewLine

        Loop

        LineOfPeas = myLine
        aryPeasLine = LineOfPeas.Split("*")
        LineOfPeas = LineOfPeas.Replace("STUBBS", "FUGEES")
        For t = 0 To 6

        Next t
        MessageBox.Show(LineOfPeas)
    End Sub