ユーザーフォームのControlsコレクションのAddメソッドを使って、
フォームにコンボボックスを追加します。

　(1)フォーム「UserForm1」とコマンドボタン「CommandButton1」を用意します。

　(2)コマンドボタンがクリックされた時に発生するイベント「Click」に、
　　 フォームにコンボボックスを追加する処理と、コンボボックスに項目を
　　 追加する処理を作成します。

　(3)フォームを表示して、コマンドボタンをクリックすると、コンボボックスが
　　 追加され、リストには“Excel”“Word”“Access”の3項目が表示されます。

Private Sub CommandButton1_Click()

    Dim cmbAdd_1 As MSForms.ComboBox

    Set cmbAdd_1 = _
        UserForm1.Controls.Add("Forms.ComboBox.1", "cmbBox1", True)

    cmbAdd_1.AddItem "Excel"
    cmbAdd_1.AddItem "Word"
    cmbAdd_1.AddItem "Access"

End Sub