<code>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
 
<font color=green>' und hier die Suchroutine</font>
Dim Zahl As Long
Dim SuchZahl As String
Dim Index As Long
 
SuchZahl = CStr(Zahl)
Index = SendMessage(List1.hWnd, LB_FINDSTRING, -1, SuchZahl)
If Index >= 0 Then
  <font color=green>' gefunden - Eintrag löschen</font>
  List1.RemoveItem Index
Else
  MsgBox Zahl & " ist in der Liste nicht gespeichert!"
End If</code>