Le serpent qui se mord la queue

salut tout le monde!

je suis en train faire une petite application genre "visdata" et j'ai un problème dans mon code que voici:

Sub text_licence_lostfocus()
'regle gestion: la saisie doit comporter 15 chiffres ni plus ni moins et pas de lettres
'si je suis postionner ailleurs que sur la zone texte licence alors
If Screen.ActiveControl.Name <> "texte_licence" Then
'si la zone texte de text_licence est vide alors
If text_licence = "" Then
'envoi message
MsgBox "la saisie de 15 caractères numérique  est obligatoire"
'repositionner le focus sur text_licence
text_licence.SetFocus
Exit Sub
End If
End If

mon problème est le suivant: étant donné que je dis que si la zone texte est vide il faut la remplir et bien lorsque je demande à mon focus de se repositionner sur la zone texte le message ne veut plus s'en aller puisque la zone est vierge et que je n'arrive pas à lui dire qu'il est revene en "setfocus" en quelque sorte

je vous remercie de votre aide