Обновление данных "ComboBox1" - VBA

Формулировка задачи:

Здравствуйте. Подскажите как сделать, чтобы обновились данные в "ComboBox1" при создании закладки путем:

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
' Вставка закладки
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=TextBox1.Text
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub
 
в загрузке формы прописано:
 
Private Sub UserForm_Initialize()
    ComboBox1.ColumnCount = 2
    
    Dim objBM As Word.Bookmark, iRow&
    For Each objBM In ActiveDocument.Bookmarks
        ComboBox1.AddItem 'Можно здесь добавить текст
        ComboBox1.List(iRow, 0) = objBM.Name
        ComboBox1.List(iRow, 1) = objBM.Range.Text
        iRow = iRow + 1
    Next
End Sub

Приложение: форма UserForm9

Решение задачи: «Обновление данных "ComboBox1"»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub ComboBox1_DropButtonClick()
    With ComboBox1
         .Clear
         Dim objBM As Word.Bookmark
         For Each objBM In ActiveDocument.Bookmarks
             .AddItem objBM.Name
             .List(.ListCount - 1, 1) = objBM.Range.Text
         Next
    End With
End Sub
 
Private Sub CommandButton1_Click()
    If Not TextBox1.Text Like "[A-zА-я]*" Then Exit Sub
    
    With ActiveDocument.Bookmarks
         .Add Range:=Selection.Range, Name:=TextBox1.Text
         .DefaultSorting = wdSortByName
         .ShowHidden = False
    End With
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.ColumnCount = 2
    'Изменить значение этого свойства можно вручную
End Sub