Sorting multidimensional array by date

[kasodo]

I know this topic was opened so many times before.I looked at all the examples, but I just cant make it work!I have 3 dimensions, date is in the first dimension.All works fine expect one array, and I just dont understand why..Here is the test link: click here\[code\]Sub DataSorter(arrArray) Dim row, j, StartingKeyValue, StartingOtherValue, _ NewStartingKey, NewStartingOther, _ swap_pos For row = 0 To UBound(arrArray)-1 StartingKeyValue = http://stackoverflow.com/questions/15415759/arrArray(row, 0) StartingOtherValue = arrArray(row, 0) StartingVenue = arrArray(row, 1) StartingVenueOther = arrArray(row, 1) swap_pos = row For j = row + 1 to UBound(arrArray) If DateDiff("s", arrArray(j, 0), NewStartingKey) < 0 Then swap_pos = j NewStartingKey = arrArray(j, 0) NewStartingOther = arrArray(j, 0) NewStartingVenue = arrArray(j, 1) NewStartingVenueOther = arrArray(j, 1) NewStartingCountry = arrArray(j, 2) NewStartingCountryOther = arrArray(j, 2) End If Next If swap_pos <> row Then arrArray (swap_pos, 0) = StartingKeyValue arrArray (swap_pos, 0) = StartingOtherValue arrArray (row, 0) = NewStartingKey arrArray (row, 0) = NewStartingOther arrArray (swap_pos, 1) = StartingVenue arrArray (swap_pos, 1) = StartingVenueOther arrArray (row, 1) = NewStartingVenue arrArray (row, 1) = NewStartingVenueOther arrArray (swap_pos, 2) = StartingCountry arrArray (swap_pos, 2) = StartingCountryOther arrArray (row, 2) = NewStartingCountry arrArray (row, 2) = NewStartingCountryOther End If NextEnd Sub\[/code\]