can you please check it out below code...
Dim formats As String() = New String() {"dd-MM-yyyy", "MM-dd-yyyy"}
Dim dtDate As DateTime
If DateTime.TryParseExact("01-04-2014", formats, CultureInfo.InvariantCulture, DateTimeStyles.None, dtDate) Then
dtDate = Convert.ToDateTime("01-04-2014")
If (dtDate.Year >= DateTime.Now.Year) Then
If (dtDate.Day <= 1) And (dtDate.Month <= 6) Then
MesgBox("Date and month should not less than 2 June ")
Return False
End If
Else
MesgBox("Year should be in the present Year ")
Return False
End If
Else
MesgBox("please check your date")
Return False
End If