I loop a series of date from a for next cicle

similar:

For Each olItm In olFld.Items
If InStr(olItm.Subject, "abd") Then
TEST = olItm.ReceivedTime

'here store date into array

End If
Next

i need to store all dates from the loop and when the loop finish extract the newst date from array, is possible?

Note:
Test is dimensioned as Date