Multidimensional array

I am stuck at the moment with this problem.

I need to store 2 columns of data into an array Columns 8 and 9.

I then need to find all matching data in column 8 ie (7X6605,7X6605)(there are 1000's of these combinations)

With these matching strings i need to sort them by column9 which is time(30/12/1899 09:07:01) so that the erliest time is first.

I Cant get my head round this problem does anyone know how it can be done.

Bellow My attempt:

Sub Serial()
 
Dim Arr(9999)
Dim i As Integer
Dim N As Long
Dim Arr2(9999)
Dim i2 As Integer
Dim N2 As Long
 
N = 9999
N2 = 9999
 
For i = 1 To N
    Arr(i) = Sheet3.Cells(i, 8)
Next i
 
    For i2 = 1 To N
        Arr(i2) = Sheet3.Cells(i2, 9)
    Next i2
 
 
 
 
End Sub

Thanx George