Dim Index As Integer
Dim sText As String
 
sText = "Gesuchter Eintrag"
 
With Combo1
  For Index = 0 To .ListCount - 1
    If .List(Index) = sText Then
      .Remove Index
      Exit For
    End If
  Next Index
End With