Сравнить две даты: только день,месяц,год - без времени, часов,минут,секунд. - VB

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

Задача.
Нужно скопировать файлы с текущей датой модификации минус один день ( прошлые сутки ) и типом
Например:
из папки "Дир1" скопировать файлы тест1.среда, тест2.среда2, тест3.среда3 в папку "Среда" соответственно в четверг из папки "Дир1" файлы с именами тест1.среда и датой модификации не копировать. В пятницу и так дальше для остальных дней недели всё повторить...
Вопрос: как мне сравнить две даты - день,месяц,год - текущую дату модификации файла с системной датой, чтобы отбросить время: часы, минуты, секунды ?
Делаю так:

                    Листинг программы
                
Sub CopyFile()
 
Set CurFile = FSys.GetFile(FileSource)
      FileMod = CurFile.DateLastModified
               If Left(CStr(FileMod), 10) = CStr(PreviousDay) Then FSys.CopyFile FileSource, FileDest, True
    Else
        Set FSys = Nothing
        End If
        
    End Sub

Решение задачи: «Сравнить две даты: только день,месяц,год - без времени, часов,минут,секунд.»

textual
                            Листинг программы 
                        
Dim DateOnlyFileMod As Date