Программное удаление контролов

Private Sub UserForm_Initialize()
 
X = 95
For i = 1 To 19
l = 77
c = 0
For a = 4 To 65
  With Controls.Add("Forms.Label.1")
        .Name = "TextLabel"
        .Width = 10
        .Height = 10
        .Font.Size = 5
        .Left = l + c
        .Top = X
        .Caption = ThisWorkbook.Sheets(19 + UserForm2.TabStrip1.Value).Cells(7 + i, a + 1)
        .Font.Bold = True
        .SpecialEffect = 3
  End With
c = c + 11
Next
X = X + 10
Next
 
End Sub
 
 
Private Sub TabStrip1_Change()
 
UserForm2.Controls.Remove ("TextLabel")
 
X = 95
 
For i = 1 To 19
l = 77
c = 0
For a = 4 To 65
  With Controls.Add("Forms.Label.1")
        .Name = "TextLabel"
        .Width = 10
        .Height = 10
        .Font.Size = 5
        .Left = l + c
        .Top = X
        .Caption = ThisWorkbook.Sheets(19 + UserForm2.TabStrip1.Value).Cells(7 + i, a + 1)
        .Font.Bold = True
        .SpecialEffect = 3
  End With
c = c + 11
Next
X = X + 10
Next
 
 
End Sub

for a = 4 to 65
     controls.remove "textlabel"
next

E = i * (a - 4)
For b = 1 To E
Controls.Remove "textlabel"
Next

Private Sub CommandButton1_Click() 'Создание
    Dim cf As MSForms.Frame, i&
    Set cf = Controls.Add("Forms.Frame.1", "vbaFrame")
    cf.Caption = ""
    'cf.BorderStyle = fmBorderStyleNone
    cf.SpecialEffect = fmSpecialEffectFlat
    For i = 0 To 4
        With cf.Controls.Add("Forms.Label.1")
             .Width = 10
             .Height = 10
             .Left = i * 11
             .Caption = ""
             .SpecialEffect = fmSpecialEffectEtched
        End With
    Next
End Sub
 
Private Sub CommandButton2_Click() 'Удаление
    Controls.Remove "vbaFrame"
End Sub