Makro med array af datoer

Hej,

jeg har et problem jeg ikke kan finde ud af.

Jeg har ved at gennemgå en liste af data lagt nogle datoer i et array. Herefter skal jeg så finde den tidligste/mindste dato i mit array. Men uanset, hvad jeg har forsøgt ender det hele tiden med at jeg får 00:00:00 tilbage som svar.

Jeg har gennemgået mit array og datoerne bliver gemt korrekt.

Håber I kan hjælpe.

Min kode er som følger:
Sub prep()

Dim earlyinc As Date
Dim lrowi As Long
Dim i As Long
Dim cnt As Long
Dim incdates() As Date
Dim formula As String


'find sidste række på I
lrowi = Ark6.Cells(Ark6.Rows.Count, "A").End(xlUp).Row

'find datoer for åbne sager

For i = 2 To lrowi
    If InStr(1, Worksheets("I").Range("D" & i), "Assigned") > 0 Or InStr(1, Worksheets("I").Range("D" & i), "New") > 0 Or InStr(1, Worksheets("I").Range("D" & i), "In Progress") > 0 Or InStr(1, Worksheets("I").Range("D" & i), "pending") > 0 Then
    cnt = cnt + 1
    ReDim Preserve incdates(1 To cnt) As Date
    incdates(cnt) = Worksheets("I").Range("A" & i).Value
    End If
Next i

earlyinc = Application.Min(incdates)

MsgBox earlyinc

End Sub