I loop with a for nex cicle a var similar:

for x=0 to 100
my_var="500"
next

now during this loop (the var is filled dinamicly and can assume a value 500,1458,500,478,1458,471 ...ecc)

i want to store in collection or in array, during the for next, only the var not duplicate...

in this case the array or collection contain 500,1458,478,471.

after the for next is finished looping the value in collection or array....
i hope i am be clear

____________________________
Sal

thy this and tell me if it works for you

Dim stored_var()     Dim x As Integer     Dim j As Integer     Dim bFound As Boolean     Dim my_var          ReDim stored_var(0 To 0)          For x = 0 To 100         my_var = 500              'look to see if value already exists         bFound = False         For j = LBound(stored_var) To UBound(stored_var)             If stored_var(j) = my_var Then                 bFound = True                 Exit For             End If         Next         If Not bFound Then             'if value is not found inside the array add the new value             ReDim Preserve stored_var(0 To UBound(stored_var) + 1)             stored_var(UBound(stored_var)) = my_var         End If     Next     'stored value are found in array from 1 to uBound     'array with index 0 is empty

____________________________
AndreaVB

quote:

---

admin wrote:
thy this and tell me if it works for you

Dim stored_var()     Dim x As Integer     Dim j As Integer     Dim bFound As Boolean     Dim my_var          ReDim stored_var(0 To 0)          For x = 0 To 100         my_var = 500              'look to see if value already exists         bFound = False         For j = LBound(stored_var) To UBound(stored_var)             If stored_var(j) = my_var Then                 bFound = True                 Exit For             End If         Next         If Not bFound Then             'if value is not found inside the array add the new value             ReDim Preserve stored_var(0 To UBound(stored_var) + 1)             stored_var(UBound(stored_var)) = my_var         End If     Next     'stored value are found in array from 1 to uBound     'array with index 0 is empty

---

I don't think it would be faster using a collection but maybe I'm wrong...      

____________________________
AndreaVB