Kod çalıştığında excelvbanet adında bir UserForm oluşacak. Form üzerinde bir Combobox oluşacak. Combo içerisine 1 'den 10 'a kadar sayıları girilecek.


Sub Kodla_UF_Ekle_Combo_Ekle()
Dim Modulum As VBIDE.CodeModule, i As Long, Makrom As String, Kodlarim As String
Makrom = "Private Sub UserForm_Initialize()" & chr(13)
    Kodlarim = "Dim i As Long" & chr(13)
    Kodlarim = Kodlarim & "For i = 1 To 10" & chr(13)
    Kodlarim = Kodlarim & chr(9) & "ComboBox1.AddItem i" & chr(13)
    Kodlarim = Kodlarim & "Next i" & chr(13)
    ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "excelvbanet"
    Set Modulum = ActiveWorkbook.VBProject.VBComponents("excelvbanet").CodeModule
        With Modulum
            i = .CountOfLines + 1
            .InsertLines i, Makrom & Kodlarim & "End Sub"
        End With
    Set forma = ThisWorkbook.VBProject.VBComponents.Item("excelvbanet") _
        .Designer.Controls.Add("Forms.ComboBox.1")
End Sub

alıntıdır...(kaynak:excelvba.net)