трабл с excel и VB

[Nature]

вот такой кусок скрипта

a = DateTime.Now
s = CStr(DatePart("m", a)) + "/" + CStr(DatePart("d", a)) + "/" + CStr(DatePart("yyyy", a))
Nachalo = 2
Konec = 1500
Xdata = 3
XSrok = 7

'YCel = 2 'номер строки ячейки с датой сравнения
'XCel = 9 'номер столбца ячейки с датой сравнения

'========================================================

For y = Nachalo To Konec
If ExlDb.Cells(y, 3) + ExlDb.Cells(y, 7) > s Then
'ExlDb.Cells(y, 9)
ExlDb.Cells(y, 1).Interior.ColorIndex = 3



Else
ExlDb.Cells(y, 1).Font.ColorIndex = 1
End If
Next y
прибавляет к ячейки с датой число т.е. к к дню. и сравнивает с системной датой, если сумма ячейки с датой + число больше системной даты то ячейка красная. Но почемуто он не суммирует дату с числом.
Помогите. Заранее благодарю

[GSerg]

Числа к дате прибавляются.

А вот нафиг сравнивать результат со строкой, когда нужно с датой?