Условие макроса сравнение дат и времени работает не корректно.Как это исправить? - VBA

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

                    Листинг программы
                
Sub Макрос_1()
 
For i = 5 To Sheets("Ввод Данных").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Ввод Данных").Range("A" & i) > Sheets("Ввод Данных").Range("B1") Then
    
    Sheets("Ввод Данных").Range("C" & i).ClearContents
 
    End If
Next i
 
End Sub

Этот макрос удаляет значения в ячейках начиная со строки 5 по всему столбцу C при условии что если в столбце А этой же строки так же с 5 строки значение в ячейке больше значения из ячейки B1 и это значение дата и время вот в таком формате 03.04. 00:15 и если дата в ячейке из столбца А больше то условие выполнено,но условие работает не корректно,даты не верно понимаются макросом.Вопрос кто знает как прописать код чтобы макрос работал нормально?

Решение задачи: «Условие макроса сравнение дат и времени работает не корректно.Как это исправить?»

textual
                            Листинг программы 
                        
.Range(.Cells(5, 13), iCell(0, 3)).ClearContents