Файл: Добавить в конец каждой строки первого файла соответствующую строку второго файла - VB

Sub mm()
 
Const FILE1 = "c:\file1.txt"
Const FILE2 = "c:\file2.txt"
 
Dim fso, f1, f2, f3
Set fso = CreateObject("scripting.filesystemobject")
Set f1 = fso.OpenTextFile(FILE1)
Set f2 = fso.OpenTextFile(FILE2)
Set f3 = fso.CreateTextFile(FILE1 & ".tmp", True)
While Not f1.AtEndOfStream
    If f2.AtEndOfStream Then
        f3.Write f1.ReadAll
    Else
        f3.WriteLine f1.ReadLine & f2.ReadLine
    End If
Wend
f1.Close
f3.Close
fso.DeleteFile FILE1, True
fso.MoveFile FILE1 & ".tmp", FILE1
End Sub