Сравнение дат и сложение значений - VB

Формулировка задачи:

Приветствую Всех. Есть таблица с датами(5ый столбец) и числами(7ой столбец). В таблице N-строк. Так же есть форма с "Текст-боксом", кнопкой и "Date and Time Picker'ом". Нужно, что бы при нажатии на кнопку программа сравнивала дату в таблице и дату в "DTPicker'e". Если даты равны, то число напротив даты прибавляла к "А". Таким образом, циклом проверила бы все даты и сложила все числа. А после, конечное число записала бы в TextBox. Вот, то что я написал, но складывает некорректно, даже понять не могу что складывает, то показывает непонятное число, то просто 0. Что нужно изменить, что бы все заработало ?

Private Sub CommandButton3_Click()
Dim obj As Object
Dim N As Integer, I As Integer, C As Date, B As Integer
Set obj = Worksheets("Лист1").Cells(1, 1).CurrentRegion
N = obj.Rows.Count + 1

B = 0
C = CDate(UserForm2.DTPicker1.Value)

For I = 2 To N

If C = CDate(Worksheets("Лист1").Cells(N, 5).Value) Then
B = B + Worksheets("Лист1").Cells(N, 7).Value
End If
Next I

UserForm2.TextBox2.Text = B

End Sub

Решение задачи: «Сравнение дат и сложение значений»

textual
                            Листинг программы 
                        
                            If C = CDate(Worksheets("Лист1").Cells(I, 5).Value) Then
    B = B + Worksheets("Лист1").Cells(I, 7).Value