Problème avec exit sub

Bonjour,

Avec ce code je voudrais lorsque la liste déroulante cmbRegroupFamille est Null
arrêter la procédure par Exit Sub et afficher le message «RegroupFamille non défini».

Le Exit Sub n’a aucun effet, le code se poursuit et m’affiche «Renouvelé»

Private Sub cmbRecherche_AfterUpdate()
On Error Resume Next

'---Inialisation du nom du formulaire 
    frm = "frm Màj des adhérents"

'--- Rechercher l'enregistrement correspondant au contrôle.
     Set rs = Forms(frm).Recordset
         rs.FindFirst "RéfAdhérent = " & Str(Val(Nz(Me![cmbRecherche], 0)))
     If Not rs.EOF Then Forms(frm).Bookmark = rs.Bookmark

'--- Utilisation du select Case pour appeler la sub ConditionAnomalieR
      Select Case cmbStatut
        Case "N"
                 !!!!!!!!
        Case "R"
                Call ConditionAnomalieR

 If (Me.cmbCoders = 1 And Me.txtMillLicence = AnnéeSportive And (Me.txtDateDépart = "" Or     IsNull(Me.txtDateDépart)) And Me.cmbRegroupFamille.Value >= 1 And (IsNull(Champ_Montant) Or Champ_Montant = "") And Me.Cocher97 = 0) Then
                      strMessage = "Chèque à saisir"
                      Me.lblMessage.Caption = strMessage
                      Me.lblMessage2.Caption = strMessage
             Else
                     strMessage = "Renouvelé"
                     Me.lblMessage.Caption = strMessage
                    Me.lblMessage2.Caption = strMessage
            End If
End select
En sub

Sub ConditionAnomalieR()
'---Teste si la zone RegroupFamille est renseigné
      If IsNull(cmbRegroupFamille.Value) Or cmbRegroupFamille.Value = "" Then

    'Boite de dialogue par Api
     reponse = MessageBox(Me.hwnd, "Veuillez vérifier la fiche de : " & cmbCivilité & " " & txtNomAdhérent _
                           & vbCrLf & vbCrLf & " La zone RegroupFamille n'est pas renseignée." _
                            & vbCrLf & vbCrLf & "Veuillez vérifier la zone RegroupFamille. ", _
               ap_AppTitle(), MB_DEFBUTTON2 + MB_ICONEXCLAMATION)
         If reponse = vbOK Then
               Me.lblMessage.Caption = " RegroupFamille non défini"
               Me.lblMessage2.Caption = " RegroupFamille non défini"
              Me.cmbRegroupFamille.SetFocus
        Exit Sub
        End If
   End If
End sub

Pour quelle raison Exit Sub est inopérant ?

Merci pour votre aide.

Salutations