Не срабатывает Label _Click при программном создании Label на UserForm

With UserForm7.Controls.Add(bstrProgID:="Forms.Label.1", Name:="Label8", Visible:=True)
    .AutoSize = False
    .BackColor = &HC0C0FF
    .BackStyle = 1
    .BorderColor = &H80000006
    .BorderStyle = 0
    .Caption = "      Нет"
    .Enabled = True
    .Font.Name = "Algerian"
    .Font.Size = 14
    .ForeColor = &H80000008
    .Height = 18
    '.HelpContextID = 0
    .Left = 336
    .MousePointer = 0
    .PicturePosition = 7
    .SpecialEffect = 6
    .TabIndex = 4
    '.TabStop = False
    .TextAlign = 1
    .Top = 156
    .Visible = True
    .Width = 60
    .WordWrap = True
  End With

Private Sub Label8_Click()
Unload Me
End Sub

Option Explicit
 
Public WithEvents LabelGroup As msforms.Label
                                        
Private Sub LabelGroup_Click()
All_print_all_Rnk
End Sub

Option Explicit
 
Dim Labels As New Collection
 
Private Sub UserForm_Initialize()
    Dim LblClsIns As LblClass
    Dim ctl As Control
    
'   Создание объектов label
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "Label" Then
                Set LblClsIns = New LblClass    'новый экземпляр класса LblClass
                Set LblClsIns.LabelGroup = ctl  'связывание его с контролом
                Labels.Add LblClsIns            'добавление его к коллекции
            End If
        End If
    Next ctl
End Sub

Sub All_print_all_Rnk()
For Each LblClsIns In Labels
    If LblClsIns.LabelGroup Then MsgBox "ого"
Next
End Sub

Option Explicit
 
Public WithEvents LabelGroup As msforms.Label
                                        
Private Sub LabelGroup_Click()
All_print_all_Rnk
End Sub

Dim Labels As New Collection
 
Private Sub UserForm_Initialize()
    Dim LblClsIns As LblClass
    Dim ctl As Control
    
    set Labels=new collection
 
'   Создание объектов label
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "Label" Then
                Set LblClsIns = New LblClass    'новый экземпляр класса LblClass
                Set LblClsIns.LabelGroup = ctl  'связывание его с контролом
                Labels.Add LblClsIns            'добавление его к коллекции
            End If
        End If
    Next ctl
End Sub

Public Labels As Collection
 
Sub All_print_all_Rnk()
For Each LblClsIns In Labels
    MsgBox "ого"
Next
End Sub