Даны два файла, получить третий, содержащий чётные строки первого файла и нечётные строки второго файла - VB

Sub CombineFilesDemo()
 Open "E:\1\File3.txt" For Output As #3
  
 Open "E:\1\File1.txt" For Input As #1
 Row = 0
 Do While Not EOF(1)
  Input #1, S
  Row = Row + 1
  If Row Mod 2 = 0 Then
     Print #3, S
  End If
 Loop
 Close #1
 
 Row = 0
 Open "E:\1\File2.txt" For Input As #2
 Do While Not EOF(2)
  Input #2, S
  Row = Row + 1
  If Row Mod 2 <> 0 Then
     Print #3, S
  End If
 Loop
 Close #2
 
 Close #3
 
End Sub