APAGAR LINHAS REPETIDAS ENTRE 2 ARQUIVOS

Private Sub Command1_Click()
'Declarando variáveis
Dim Tem As Boolean
Dim Gera(10) As String
Dim i As Integer
i = 0

'Abrindo os arquivos para leitura e comparação
Open "D:\Benjamim\Arq1.txt" For Input As #1

'Gerando o loop para navegar a cada linha
Do While Not EOF(1) 'Percorerá até o fim o primeiro arquivo
     Line Input #1, strLin1
     Open "D:\Benjamim\Arq2.txt" For Input As #2
        Do While Not EOF(2)  'Percorerá até o fim do segundo arquivo
           Line Input #2, strLin2
           If strLin1 = strLin2 Then
                Tem = True
                Close #2
                GoTo ProxLin
           End If
        Loop
    Close #2
    Tem = False
ProxLin:
  If Tem = False Then
    Gera(i) = strLin1
    i = i + 1
  End If
Loop
        
Close #1


'Apaga o arquivo 1
Kill "D:\Benjamim\Arq1.txt"

'Gera o arquivo 1 sem os valores duplicados
Open "D:\Benjamim\Arq1.txt" For Output As #3
    Do Until i = 0
        Print #3, Gera(i - 1)
        i = i - 1
    Loop
Close #3

End Sub