With this code i loop item and fill array.
But during the loop of value i can have alway a pair of date similar:

01/01/2011 19.00.14
and
01/01/2011 05.00.11
....
02/01/2011 19.00.27
and
02/01/2011 05.00.02

i need to compare the two pair of dates and insert into array only the most little date from the pair... in this case fill the array with:

01/01/2011 05.00.11
02/01/2011 05.00.02

Code:
For Each olItm In olFld.Items
        If InStr(olItm.Subject, "test") Then
            TEST = olItm.ReceivedTime
            ReDim Preserve ARRAY_DATE(I)
            ARRAY_DATE(I) = TEST
            I = I + 1
        End If
    Next
note:
TEST is the var filled with dates