<font color=green>' API-Deklaration für die Suche innerhalb einer 
' ComboBox</font>
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
        As Long, ByVal wParam As Long, ByVal lParam As _
        String) As Long
 
Private Const CB_FINDSTRINGEXACT = &H158

Dim Index As Integer
Dim sText As String
 
sText = "Gesuchter Eintrag"
Index = SendMessage(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, sText)
If Index >= 0 Then
  Combo1.RemoveItem Index
End If