DOH, I just figured it out . I had to do with the formating of the two values being compared.

I had an idea that I thought was a long shot and changed the following line
If cboDate.Value <> Format(DateAdd("d", 1, txtMidDate2.Value), "dd-mmm-yyyy") Then
to this instead and it worked.
If Format(DateAdd("d", 0, cboMidDate.Value), "dd-mmm-yyyy") <> Format(DateAdd("d", 1, txtMidDate2.Value), "dd-mmm-yyyy") Then