Как работает ComboBox - VBA

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

Не могу понять, как добавить элементы в ComboBox. ComboBox находится на форме. При использовании

Private Sub ComboBox_Change()
 ComboBox.AddItem "1"
 ComboBox.AddItem "2"
End Sub

Добавление элементов не работает, при нажатии стрелочки на ComboBox, срабатывает, только если начинать вводить текст, и элементы добавляются при каждом вводе символов. Как сделать, чтобы элементы отображались просто по нажатию стрелочки?

Решение задачи: «Как работает ComboBox»

textual
                            Листинг программы 
                        

                            Private Sub ComboBox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    '
    'Добавление элемента по нажатию ENTER
    'То что было записанно в текстовом поле ComboBox
    'Будет добавленно в верхнюю часть списка
    '
    If KeyCode = 13 Then
        With ComboBox
            .AddItem .Text, 0
        End With
    End If
 
End Sub
                        