Скрипт для поиска строк

Option Explicit
Dim oFile, FSO, Arr1, Arr2, Max, Max2, i
'———— Пути к файлам ————
Const File1 = "C:\1.txt"
Const File2 = "C:\2.txt"
oFile = "C:\3.txt"
'———————————————————————
Set FSO = CreateObject("Scripting.FileSystemObject")
Arr1 = Split(FSO.OpenTextFile(File1).ReadAll, vbNewLine)
Arr2 = Split(FSO.OpenTextFile(File2).ReadAll, vbNewLine)
Set oFile = FSO.CreateTextFile(oFile, 1)
 
Max = UBound(Arr1): If Max <> UBound(Arr2) Then _
MsgBox "Несоответствие числа строк в двух файлах!", 4144: WSH.Quit
For i = 0 To Max
    If Arr1(i) <> Arr2(i) Then oFile.WriteLine Arr2(i)
Next
oFile.Close
Set FSO = Nothing

Option Explicit
'———— Пути к файлам ————
Const File1 = "C:\1.txt"
Const File2 = "C:\2.txt"
Const File3 = "C:\3.txt"
'———————————————————————
Dim FSO, Text2, oFile, Line, NS
Set FSO = CreateObject("Scripting.FileSystemObject")
Text2 = vbLf & FSO.OpenTextFile(File2).ReadAll & vbCr
Set oFile = FSO.OpenTextFile(File1)
Do: Line = oFile.ReadLine
  If Len(Line) Then _
  If InStr(Text2, vbLf & Line & vbCr) = 0 Then NS = NS & VbCrLf & Line
Loop Until oFile.AtEndOfStream
If Not IsEmpty(NS) Then FSO.CreateTextFile(File3, 1).Write Mid(NS, 3)
oFile.Close: Set FSO = Nothing