DateTime.DateFormat = "d/M/yyyy"
Dim MyDate As String="20/8/2013"
Dim D As Long= DateTime.DateParse(MyDate)
Dim DS As Long= DateTime.DateParse("1/8/2013")
Dim DE As Long= DateTime.DateParse("31/8/2013")
If D >= DS AND D <= DE Then
Msgbox(MyDate & " is between","")
Else
Msgbox(MyDate & " is not between","")
End If