VBS: Подстановка значений из одного тектового файла в другой

Dim FSO
Dim file1
Dim file3
Dim Txt1
Dim Txt3
Dim N

Set FSO=CreateObject("Scripting.FileSystemObject") 'подключаем filesystemobject
Set file1 = FSO.OpenTextFile("C:\File1.csv", 1, False) 'открыть только для чтения
Set file3 = FSO.CreateTextFile("C:\File3.csv")'Создаем текстовый файл

Do While File1.AtEndOfStream <> True
    Txt1 = File1.ReadLine
    N = Mid(txt1,1,3)
    Call Search(N, Txt3)
Loop
file1.Close
file3.Close
MsgBox "Ok!"
WScript.Quit

Sub Search(N, Txt3)
    Dim file2
    Dim Txt2
    Dim TxtX
    Set file2 = FSO.OpenTextFile("C:\File2.csv", 1, False) 'открыть только для чтения
    Do While File2.AtEndOfStream <> True
        Txt2 = File2.ReadLine
        
        If InStr(Txt2, N ) > 0 Then
            TxtX = Right(Txt2,Len(Txt2) - 4)
            Txt3 = Txt1 & TxtX
            Exit Do
        Else
            Txt3 = Txt1
        End If
    Loop
    file3.WriteLine(Txt3)
    file2.Close
End Sub

Option Explicit

' IOMode Enum
Const ForReading   = 1
Const ForWriting   = 2


Dim objTSDest

Dim strFileSourceIn
Dim strFileSourceOut
Dim strFileDest
Dim strBAKFileSourceOut

Dim arrValues
Dim objDictionary


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

strFileSourceIn = "E:\Песочница\0073\FileSourceIn.txt"
strFileSourceOut = "E:\Песочница\0073\FileSourceOut.txt"

strFileDest = GetTemporaryName()

With WScript.CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(strFileSourceIn, ForReading)
        Do Until .AtEndOfStream
            arrValues = Split(.ReadLine, ";")
            objDictionary.Add arrValues(0), arrValues(1)
        Loop
        
        .Close
    End With
    
    Set objTSDest = .CreateTextFile(strFileDest)
    
    With .OpenTextFile(strFileSourceOut, ForReading)
        Do Until .AtEndOfStream
            arrValues = Split(.ReadLine, ";")
            
            If objDictionary.Exists(arrValues(0)) Then
                arrValues(1) = objDictionary(arrValues(0))
            End If
            
            objTSDest.WriteLine Join(arrValues, ";")
        Loop
        
        .Close
    End With
    
    objTSDest.Close
    
    strBAKFileSourceOut = .BuildPath(.GetParentFolderName(.GetAbsolutePathName(strFileSourceOut)), .GetBaseName(strFileSourceOut) & ".bak")
    
    If .FileExists(strBAKFileSourceOut) Then
        .DeleteFile strBAKFileSourceOut, True
    End If
    
    .MoveFile strFileSourceOut, strBAKFileSourceOut
    .CopyFile strFileDest, strFileSourceOut, True
    .DeleteFile strFileDest, True
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetTemporaryName()
    Const TemporaryFolder = 2
    
    Dim strTempName
    
    With WScript.CreateObject("Scripting.FileSystemObject")
        Do
            strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
        Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
    End With
    
    GetTemporaryName = strTempName
End Function
'=============================================================================