Dim GeänderteZeile As String = RTB1.Lines(3)
' Die Zeile jetzt ändern und dann wieder zurückschreiben
RTB1.Lines(3) = GeänderteZeile

If Openfiledialog.ShowDialog <> DialogResult.OK Then Exit Sub
     Dim Dateipfad As String = Openfiledialog.FileName
     RTB1.LoadFile(DateiPfad)
End If

Ralf