Search Boolean

Can some one help me use this search Api to make a function where it searchs for some text and if it finds it, it sets a boolean called FoundTXT to true else if it doesn't then it sets it to false.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F


List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(text1.Text))

Thanks to all in advance.

VB Code:

If SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text)) = -1 Then
        FoundTXT = False
    Else
        FoundTXT = True
    End If

Thanks !!

your welcome :)

the SendMessage used this way will always return the list item if found. if not found it will return -1