EXCEL VBA组合框中添加新的项

唉，本来不想加上过程的，看了上面的回答不得不提醒你下。
不能把代码像上面那样放到 Change事件中，因为这个事件，你输入一个字符就会触发一次，如果你输入 123 结果就是 组合框有 1，12，123.我想这不是你希望的吧？
加一个按钮，点击按钮后再赋值

Private Sub CommandButton1_Click()
UserForm1.ComboBox1.AddItem TextBox1.Text
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
if textbox1.text<> ""
UserForm1.ComboBox1.AddItem TextBox1.Text
UserForm1.Show
end if

End If
End Sub

Private Sub TextBox1_Change()
UserForm1.ComboBox1.AddItem TextBox1.Text
UserForm2.Hide
End Sub