I use the following workaround:
Before setting the focus to the current control, set the focus to another control, it doesn't matter which one.
Example:
Private Sub AuthDateEntered_LostFocus()
'Private Sub AuthDateEntered_BeforeUpdate(Cancel As Integer)
If AuthDateEntered < ReferDate Then...