This may work as well...
If CDate(cboMidDate.Value) <> CDate(txtMidDate2.Value) + 1 Then