Замена части строк по условию

Sub Read_text_File()
Dim objStream
Dim sText As String
Dim sText_in As String
Dim sText_arr
Dim sText_out As String
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "utf-8"
    objStream.Open
    objStream.LoadFromFile ("c:\dhatu_file.txt")
    Do Until objStream.EOS
        sText = objStream.ReadText(-2)
        sText_arr = Split(sText, "|")
        sText_in = sText_arr(0)
        sText_out = sText_arr(1)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = sText_in
            .Replacement.Text = sText_out
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Loop
    MsgBox ("TheEnd")
End Sub