Date1 = CDate(DateAsString1)
Date2 = CDate(DateAsString2)

If Date1 <> Date2 Then
   MsgBox "Dates are not the same"
Else
   MsgBox "Dates are equal"
End If