Combobox problemer

Hej.

Jeg har en Combobox og en Textbox.
Jeg vil gerne overføre det valgte item fra comboboxen til textboxen, hvorefter jeg vil have at comboboxen stiller sig i "nulposition" så der ikke både står "appelsin" i comboboxen og i textboxen.

Her er min kode:

Private Sub frugtComboBox_Click()
    valgtFrugt.Text = frugtComboBox.List(frugtComboBox.ListIndex)
    frugtComboBox.ListIndex = -1
End Sub

Mit problem er, at "frugtComboBox.ListIndex = -1" virker som om at den fyrer rutinen af igen, så at den vælger index -1, som er tomt, og så overfører det tomme felt til textboxen, hvor "appelsin" så bliver slettet.

Har prøvet forskellige events uden held.

Mvh,
Tim.