Ciao a tutti, qualcuno sa dirmi perchè questo codice per essere eseguito ci mette 20 minuti esaurendo tutte le risorse del mio pc da 3Ghz con 512 MB?
Gli array vettAppo1 e vettAppoOrdinato1, sono di tipo String.
Aiutatemi per favore, grazie a tutti.


'CREAZIONE vettAppoOrdinato1
indice = 0
flag = 0
contatore = 0
x = 0
Do While contatore <= 65000
Do While x <= 65000
If vettAppo1(contatore) = "" Then
flag = 1
Exit Do
ElseIf vettAppo1(contatore) = vettAppoOrdinato1(x) Then
flag = 1
End If
x = x + 1
Loop
If flag <> 1 Then
vettAppoOrdinato1(indice) = vettAppo1(contatore)
indice = indice + 1
End If
flag = 0
If vettAppo1(contatore) = "" Then
Exit Do
End If
contatore = contatore + 1
x = 0
Loop