Can I search the List1.ItemData(List1.ListIndex) like the way I to search
for List1.text in below?

Private Sub Text1_Change()
    Dim i
    Dim strSearch As String
    strSearch = Text1.Text
    If strSearch = "" Then Exit Sub
    i = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal strSearch)
    If i < 0 Then
        MsgBox "Not Found"
        Exit Sub
    End if
    List1.TopIndex = i
    List1.ListIndex = i
End Sub

Please help.....