How can I speed up this??

[wildcat_2000]

Hi all,

I'm currently using this routine to delete doubles. Could someone out there tell me HOW to speed up things?? This get really slow if I have more than 2000 items.

The idea is: I've got 1 list (defined by variables list(x), where x can easily go up to 30,000), I'm just purging it of the doubles that are included.

ttt = 0

baseroutine:

ttt = ttt + 1
If ttt > TotalNumberItemsList Then
    GoTo finish
End If

tttt = ttt

flexroutine:
tttt = tttt + 1
If tttt > TotalNumberItemsList Then
    GoTo baseroutine
ElseIf UCase(list(ttt)) = UCase(list(tttt)) Then
    lista(tttt) = ""
    GoTo flexroutine
End If

GoTo flexroutine

finish:

Thanks in advance for your help,

Cheers,

W.