<code><font color=green>' Schnelle Suche innerhalb einer ListBox</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 LB_FINDSTRING = &H18F</code>

<code><font color=green>' Prüft, ob ein Wert in einer ListBox enthalten ist
' und gibt als Ergebnis den ListIndex zurück
' (-1, wenn nicht vorhanden)</font>
Public Function IsInListe(Liste As ListBox, _
  ByVal Item As String) As Integer
 
  IsInListe = SendMessage(Liste.hwnd, _
    LB_FINDSTRING, -1, Item)
End Function</code>

<code>  Dim Index As Integer
  Dim I As Integer
 
  With List1
    Index = -1
    For I = 0 To .ListCount - 1
      If .List(I) Like "*" & Text1.Text & "*" Then
        Index = I: Exit For
      End If
    Next I
    .ListIndex = Index
  End With</code>