Eintrag von Combobox in Listbox

wer kann mir helfen. und zwar möchte ich aus einer Combobox heraus einen Begriff anwählen können der nach anklicken in einer darunterliegenden Listbox erscheint. Jede Box für sich funktioniert schon aber leider funktionieren sie nicht miteinander!?!?!
Anbei auch noch einmal den Code

Option Explicit
Dim GeräteZeile As Long

Private Sub cboGeräte_Change()
GeräteZeile = lstGeräte.ListIndex + 1
End Sub

Private Sub cboGeräte_Click()

End Sub

Private Sub cmdEnde_Click()
Unload Me
End Sub

Private Sub lstGeräte_Change()
GeräteZeile = lstGeräte.ListIndex + 1
End Sub

Danke dafür
Markus