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_FINDSTRINGEXACT = &H1A2

Dim Index As Long
Dim sText As String
 
sText = "TEST"
Index = SendMessage(List1.hWnd, LB_FINDSTRINGEXACT, sText, -1)
If Index >= 0 Then List1.RemoveItem Index