BUSCA POR LINHAS REPETIDAS EM ARQUIVO TXT

[ô]Veja se te ajuda, claro que pode ser melhorado! E outra coisa não testei escrevi diretamente aqui

Private Sub LerArquivoGravar()
	Dim F As Integer, F1 As Integer
	Dim Linha As String, Linha1 As String
	Dim pGravar As Boolean
	
	F = FreeFile
	
    Open txtCaminho.Text For Input As #F
        While Not EOF(F)
            Line Input #F, Linha
            
			If Int(Left(Trim(Linha), 2)) = 75 Then
				F1 = FreeFile
				pGravar = True
				
				Open [Ô]C:\Temp\SeuArquivo.txt[Ô] For Input As #F1
					While Not EOF(F)
						Line Input #F1, Linha1
						
						If Int(Left(Trim(Linha1), 2)) = 75 Then
							If UCase(Trim(Linha)) = UCase(Trim(Linha1)) Then
								pGravar = False
							End If
						End If
					Wend
				Close #F1
				
				If pGravar Then
					Call GravarNovo(Linha)
				End If
			Else
				Call GravarNovo(Linha)
			End If
			
        Wend
    Close #F
End Sub

Private Sub GravarNovo(vTexto)
	[ô]Utilizado para gravar os dados no novo arquivo
	Dim F As Integer
	
	F = FreeFile
	
	Open [Ô]C:\Temp\SeuArquivo.txt[Ô] For Append Shared As #F
		Print #F, vTexto
	Close #F
End Sub


[ô]Para chamar o procedimento coloque a linha abaixo dentro do click de um botão

Call LerArquivoGravar