læs en linie fra fil af gangen

hej

jeg skal læse en linie af gangen, hvor jeg senere skal kunne gå ind og bytte nogle ord ud med noget andet tekst.

Jeg har følgende kode som læser hele filen på en gang:

Private Function OpenFile() As String

        ' Displays an OpenFileDialog and shows the read/only files.
        Dim path As String

        Dim DlgOpenFile As New OpenFileDialog
        DlgOpenFile.ShowReadOnly = True
        Dim Fs As FileStream

        Dim EntireFile As String
        Dim oFile As System.IO.File
        Dim oRead As System.IO.StreamReader

        If DlgOpenFile.ShowDialog() = DialogResult.OK Then

            'Vis indhold fra valgt fil i textbox3
            oRead = oFile.OpenText(DlgOpenFile.FileName) '("C:\Programmering\frame2html\Frame1.txt")
            EntireFile = oRead.ReadToEnd
            TextBox3.Text = EntireFile

            'Gem sti i path
            path = DlgOpenFile.FileName

        End If

        Return path

    End Function

Den skal læse en linie af gangen ved tryk på en knap, dvs, at den hele tiden skal tilføje en ny linie til tekstboxen hver gang der trykkes på knappen.