Private Sub Combo1_Click() 
Select Case Combo1.ListIndex
  Case Is = 0 'Wenn gleich das erste angeklickt wird
    MsgBox "Sie haben gleich das erste angeklickt"
  Case Is = 1 'Wenn das zweite angeklickt wird
    MsgBox "Sie haben das zweite angeklickt"
...
End Select
End Sub