Agir sur "x" texbox à l'entrée puis à la sortie

Option Explicit
Dim Ctrl As MSForms.Control
Dim WithEvents TBx As MSForms.TextBox
Dim SortirDeLà As Boolean

Private Sub UserForm_Activate()
Do: DoEvents
   If Not Me.ActiveControl Is Ctrl Then
      If Not TBx Is Nothing Then
         'Instructions à exécuter quand TBx perd le focus.
         Set TBx = Nothing: End If
      Set Ctrl = Me.ActiveControl
      If TypeOf Ctrl Is MSForms.TextBox Then
         Set TBx = Me.ActiveControl
         'Instructions à exécuter quand TBx prend le focus.
         End If: End If: Loop Until SortirDeLà
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SortirDeLà = True
End Sub