[RESOLVED] trying to determine the days between dates between now and the dates listed using vb6

[isnoend07]

this gives an overflow error
dates are in this format: 07-26-2016

Dim i As Integer
 GRD_TIME_DATE = 3 'hard coded
Dim Days As Integer
With gridMaster

For i = 1 To .Rows - 1
Days = DateDiff("d", .TextMatrix(i, GRD_TIME_DATE), Now)

Next
End With

how can this be written ?