Apagar registro repetido

[kauebranco 0]

eu tenho um arquivo *.txt com vários emails .. em cada linha tem um email . seria dificil fazer um programa que apagasse os possiveis emails repetidos que tem na lista ??precisave disso .. se alguem ja sabe de algum programa pronto .. ou entaum poderiam me ajudar a fazer um ??obrigado!!!

[Luizgrs 0]

Tenta ver se esse código funciona:

For x = LBound(emails) To UBound(emails)	If InStr(1, todos_emails, emails(x)) > 0 Then		If InStr(InStr(1, todos_emails, emails(x)) + 1, todos_emails, emails(x)) > 0 Then todos_emails = Replace(todos_emails, emails(x), "", , 1)Next x

emails é um vetor com um email por indíce, já todos_emails (não é vetor) possui todos os emails do arquivo.