[alex77755]

REPLACE не получается

??
На форме RichTextBox1 с сылкой на файл и два тксбокса. Всё меняется

Форма1.RichTextBox1.Text = Replace(Форма1.RichTextBox1.Text, Форма1.Текст1.Text, Форма1.Текст2.Text)
потом только сохранить

А объём файла большой?
и так можно

Код:

 Dim File As String, CF As String
   
   File = "D:\КиРпИчИ\Задания\Замена\1.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
Debug.Print CF
CF = Replace(CF, "20100115", "20100117")
Debug.Print
Debug.Print CF
   File = "D:\КиРпИчИ\Задания\Замена\2.txt"
   Open File For Output As #1
Print #1, CF
Close #1
End Sub