Visual Basic.NET - Ayuda para reemplazar una linea completa en un archivo de texto plano.

Try

            Dim texto1 As String = File.ReadAllText(myPath) ' Ruta del Archivo

            texto1 = texto1.Replace(TextBox1.Text, TextBox2.Text) ' Texto que se reemplazara.

            File.WriteAllText(myPath, texto1) ' Se escribe la situación anterior.

            MsgBox("Datos modificados correctamente", MsgBoxStyle.Information)

        Catch ex As Exception

            MsgBox("Error en la operación!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Error : 2054..")

        End Try

Imports System

Imports System.IO

Imports System.Collections

Public Class Form1

   Dim myPath As String

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      myPath = Application.StartupPath & "\adr.txt"

      Dim objReader As New StreamReader(myPath)

      Dim sLine As String = ""

      Dim arrText As New ArrayList()

      Do

         sLine = objReader.ReadLine()

         If Not sLine Is Nothing Then

            arrText.Add(sLine)

         End If

      Loop Until sLine Is Nothing

      objReader.Close()

      Dim indice As Integer

      Dim c As Integer

      'Hago los reemplazos necesarios 

      indice = 0

      c = arrText.Count - 1

      For i = 0 To c

         Dim texto1 As String

         sLine = arrText.Item(i)

         texto1 = sLine

         texto1 = texto1.Replace(TextBox1.Text, TextBox2.Text) ' Texto que se reemplazara.

         If texto1 <> sLine Then

            texto1 = sLine.Replace(sLine, TextBox2.Text)

            arrText.Item(i) = texto1

         End If

      Next

      'Visualizo  lo que tengo en el arreglo de lineas

      For Each sLine In arrText

         res.Text = res.Text & sLine & vbCrLf  ' res es un textbox multilinea

      Next