With Combo1
  .Tag = "NoAction"
  .ListIndex = 1
End With

Private Sub Combo1_Click()
  If Combo1.Tag <> "NoAction" Then
    ' Anwender hat neuen Eintrag ausgewählt!
  End If
  Combo1.Tag = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de