أريد طريقة لأقول إذا كان التاريخ كذا أكبر من التار

السلام عليكم ورحمة الله وبركاته

اسند كلا من التاريخين الى متغير من النوع Date ثم استعلم اذا كان احد التاريخين اكبر من الاخر عن طريق الجمل الشرطية او يمكنك كتابة التاريخين مباشرة دون الاسناد الى متغيرات لكن بوضع التاريخ بهذه الصورة #Date#

Private Sub Command1_Click()
Dim Date1 As Date, Date2 As Date
Date1 = DTPicker1.Value
Date2 = DTPicker2.Value
If Date1 > Date2 Then
    MsgBox "التاريخ الاول اكبر من التاريخ الثانى"
ElseIf Date1 < Date2 Then
    MsgBox "التاريخ الاول اصغر من التاريخ الثانى"
ElseIf Date1 = Date2 Then
    MsgBox "التاريخان متساويان"
End If
End Sub

شكراً جزيلاً