[VB] некорректно работает и немного не доделала

[Мария19043]

Private Sub CommandButton2_Click()
Dim date1 As Date
Dim date2 As String
Dim date3 As String
Dim date4 As Date
MyDate1 = "03.03.2019" 'первая дата сдачи работы
MyDate2 = "09.03.2019" 'вторая дата сдачи работы
MyDate3 = "12.03.2019" 'третья дата сдачи работы
date3 = InputBox("Введите дату сдачи всех трёх работ:")
If date3 = Format(date3, "dd.mm.yyyy") Then
                    If date3 = "" Then
                     MsgBox "Дата сдачи работ не введена!"
                        Else
                        date1 = Date
                        If IsDate(date3) = False Then
                            MsgBox "Дата введена некорректно." & Chr(13) & "Формат даты должен быть: день.месяц.год"
                        End If
                End If
                Else: MsgBox ("Введите дату в формате дд.мм.гггг")
End If

If date3 = MyDate1 Or date3 = MyDate2 Or date3 = MyDate3 Then
                MsgBox "Работы сданы вовремя! "
                Else
    If date3 < MyDate1 Or date3 < MyDate2 Or date3 < MyDate3 Then
                    MsgBox "Работы сданы раньше срока!"
                    End If
        If date3 > MyDate1 And date3 > MyDate2 And date3 > MyDate3 Then
                        MsgBox "Опоздал! Работы сданы не вовремя! "
                        End If
End If
End Sub

Пожалуйста, оформляйте Ваш код согласно правилам.

нужна помощь
некорректно работает
и немного не доделала
вот задание: Преподаватель дал студентам три задания и сказал, что задания нужно сдать не позднее трех указанных дат. Студент забыл, когда нужно сдавать каждое из заданий и принес все работы в один день. Определите на сколько дней он просрочил сдачу заданий или на сколько дней раньше срока сдал работы. Если работы сданы в срок, не превышающий дату сдачи, то сообщить об этом.