Dim a1 As Long, b1 As Long
Dim A As String, B As String
DateTime.DateFormat = "yyyy-MM-dd" '!IMPORTANT
A = "2011-06-01"
B = "2011-06-21"
a1 = DateTime.DateParse(A)
b1 = DateTime.DateParse(B)
If a1 < b1 Then
Msgbox("A is an earlier date.","Result")
End If