ComboBox с добавлением новых элементов в Userform

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Capella", "DIY Flavor Shack", "Flavor West", "Flavorah", "Inawera")
End Sub

Dim t$, i As Variant
 
t = "Premix Drops"
i = Application.Match(t, ComboBox1.List, 0)
 
If Not IsError(i) Then
   MsgBox t & " уже есть с списке и мы его уничтожим :)", vbCritical, ""
   ComboBox1.RemoveItem i - 1
Else
   ComboBox1.AddItem t
End If

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Иванов"
  ComboBox1.AddItem "Петров"
  ComboBox1.AddItem "Сидоров"
  
  Dim i As Integer
  On Error Resume Next
  i = CInt(ThisDocument.Variables("Combobox1LastChoice").Value)
  If Err.Number <> 0 Then Err.Clear
  ComboBox1.ListIndex = i
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Dim var As Variable
 
  For Each var In ThisDocument.Variables
    If var.Name = "Combobox1LastChoice" Then
      Exit For
    End If
  Next
  If var Is Nothing Then
    ThisDocument.Variables.Add "Combobox1LastChoice", ComboBox1.ListIndex
  Else
    var.Value = ComboBox1.ListIndex
  End If
End Sub

Application.AddCustomList ComboBox1.List 'запись
 
Application.DeleteCustomList 5 "удаление списка
 
ComboBox1.List = Application.GetCustomListContents(5) 'чтение

Private Sub UserForm_Initialize()
    If Application.CustomListCount = 4 Then
       ComboBox1.List = Array("Capella", "DIY Flavor Shack", "Flavor West", "Flavorah", "Inawera")
    Else
       ComboBox1.List = Application.GetCustomListContents(5)
    End If
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.AddCustomList ComboBox1.List
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
       Dim t$: t = Trim$(ComboBox1.Text)
       If Not ComboBox1.MatchFound Then
          ComboBox1.AddItem t
       Else
          MsgBox t & " есть в списке", vbCritical, ""
       End If
    End If
End Sub

Private Sub UserForm_Initialize()
    If Application.CustomListCount = 4 Then
       ComboBox1.List = Array("Capella", "DIY Flavor Shack", "Flavor West", "Flavorah", "Inawera")
    Else
       ComboBox1.List = Application.GetCustomListContents(5)
    End If
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Do Until Application.CustomListCount = 4
       Application.DeleteCustomList 5
    Loop
    Application.AddCustomList ComboBox1.List
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     Dim t$, i&
     Select Case KeyCode
        Case vbKeyReturn
             t = Trim$(ComboBox1.Text)
             If Not ComboBox1.MatchFound Then
                ComboBox1.AddItem t
             Else
                MsgBox t & " есть в списке", vbCritical, ""
             End If
        Case vbKeyDelete
             i = ComboBox1.ListIndex
             If i > -1 Then ComboBox1.RemoveItem i
    End Select
End Sub