Замена части строки файла

 Dim S(), K(), P() As String, i, j As Integer
        Dim D As Date = Now
       S = IO.File.ReadAllLines(Application.StartupPath & "\tp\1.txt", System.Text.Encoding.GetEncoding(1251))
 
        For j = 0 To UBound(S) - 1
            If InStr(S(i), TextBox1.text) Then
               K = Split(S(i), "|")
                    P = Split(S(i + 1), "|")
                    If K(7) = "  .  " Then
                    K(7) = K(7).Replace("  .  ", Format(D, "dd.yy"))
                    P(25) = P(25).Remove(0, 1)
                    P(25) = P(25).Replace(P(25), "2" + P(25))
                    IO.File.WriteAllLines("tp\2.txt", S, System.Text.Encoding.Default)
                    End If
                    MsgBox(K(7) & "|" & P(25))
            End If
            i = i + 1
        Next j

Dim S() As String, j As Integer
        Dim D As Date = Now
        S = IO.File.ReadAllLines("D:\1.txt", System.Text.Encoding.GetEncoding(1251))
 
        For j = 0 To S.Length - 1
            Dim Line() As String = Split(S(j), "|")
            If Line(0) = TextBox1.Text Then
                If Line(7) = " . " Then
                    Line(7) = Line(7).Replace(" . ", Format(D, "dd.yy"))
                    Line(25) = 2
                    S(j) = Join(Line, "|")
                End If
                MsgBox(Line(7) & "|" & Line(25))
            End If
        Next
IO.File.WriteAllLines("D:\2.txt", S)

Line(33) = "2" & Strings.Left(Line(33), Line(33).Length - 1)

Dim S() As String, j As Integer
        Dim D As Date = Now
        S = IO.File.ReadAllLines("D:\1.txt", System.Text.Encoding.GetEncoding(1251))
        For j = 0 To S.Length - 2
            Dim Line() As String = Split(S(j), "|")
            If Line(0) = TextBox1.Text Then
                If Line(7) = " . " Then
                    Line(7) = Line(7).Replace(" . ", Format(D, "dd.yy"))
                    Dim LineA() As String = Split(S(j + 1), "|")
                    LineA(25) = "2" & Strings.Left(LineA(25), LineA(25).Length - 1)
                    S(j) = Join(Line, "|")
                    S(j + 1) = Join(LineA, "|")
                End If
            End If
        Next
IO.File.WriteAllLines("D:\2.txt", S)