Private Sub TextBox2_Change()

Dim i As Byte
Dim МойЛБ As MSForms.ComboBox
Dim МойТБ As MSForms.TextBox

      If TextBox2.Value >= 3 And TextBox2.Value <> "" Then
       
        For i = 1 To TextBox2.Value - 2
 
        Set МойТБ = Для_Разбивки.MultiPage1.Pages(1).Controls("Frame1").Add("Forms.TextBox.1") 
        With МойТБ
         .Width = TextBox4.Width
         .Height = TextBox4.Height
         .Left = TextBox4.Left
         .Top = TextBox4.Top + i * (TextBox4.Top - TextBox3.Top)
         .Font.Name = Tahoma
         .Font.Size = 10
         .Name = "МойТБ" & i
        End With
        
        Set МойЛБ = Для_Разбивки.MultiPage1.Pages(1).Controls("Frame1").Add("Forms.ComboBox.1")
         With МойЛБ 
         .Width = ComboBox1.Width
         .Height = ComboBox1.Height
         .Left = ComboBox1.Left
         .Top = ComboBox1.Top + i * (ComboBox1.Top - DopBOX.Top)
         End With
           
            Dim j As Byte
             For j = 1 To 86
             МойЛБ .AddItem (Workbooks("имя").Worksheets("имя").Cells(j, 1).Value)
             Next j

    Next i
  
    ElseIf TextBox2.Value = "" Then
    Вот сюда код на удаление нужен всех программно добавленных боксов. Во фрейме еще 3 текстбокса и 1 комбо, они само собой остаться должны, хотя их программно все равно не удалить, т.к. они добавлены в ручную сразу на форму.
    Next
    
    ElseIf TextBox2.Value <= 2 Then
    Exit Sub
  End If
    
   
End Sub

    Dim объект As Control
    For Each объект In Me.Controls
    If объект.Name <> "CommandButton1" Then Controls.Remove объект.Name
    Next