Dringend! Wert aus Combobox in Zelle

folgendes Macro erzeugt mir eine Combobox in der Menüleiste:

Sub NeueCombo()
Dim cb As CommandBar
Dim combo As CommandBarComboBox
Set cb = Application.CommandBars.Add(Name:="Navigation2", temporary:=True, Position:=msoBarTop)
Set combo = cb.Controls.Add(Type:=msoControlComboBox)
With combo
.AddItem "First Item", 1
.AddItem "Second Item", 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End With
End Sub

Letzt stellt sich mir nur das Problem wie ich den ausgewählten Wert in eine bestimmte Zelle meines Excelsheets bekomme?

Wäre nett wenn mir jemand schnell einen Tip geben könnte.

Danke Roland