Textbox/Combobox per Sub einfügen

Sub einzufügen, jetzt krieg ich es irgendwie nicht gebacken, dass die eingegebenen Werte der  _
neuen Box in eine bestimmte Zelle übertragen werden. Jemand ne idee für mich?
neue Combobox einfügen sieht bei mir aktuell so aus:

Sub ZeileHinzu()
Dim anzahl As Integer
Dim AbstandY As Integer
Dim Hoehe As Integer
Hoehe = DBBOX1.Height
AbstandY = Hoehe
Dim myLBL As MSForms.ComboBox
Set myLBL = Me.Controls.Add("Forms.Combobox.1", "DBBOX2", True)
With myLBL
.Left = DBBOX1.Left
.Top = DBBOX1.Top + AbstandY - 1
.Font = DBBOX1.Font
.Font.Size = DBBOX1.Font.Size
.BorderColor = DBBOX1.BorderColor
.BorderStyle = DBBOX1.BorderStyle
.Height = DBBOX1.Height
.Style = DBBOX1.Style
.BackColor = DBBOX1.BackColor
.DropButtonStyle = DBBOX1.DropButtonStyle
.ShowDropButtonWhen = DBBOX1.ShowDropButtonWhen
.Width = DBBOX1.Width
End With
End Sub


Über jegliche Hilfe wäre ich sehr dankbar :-)