CB_FINDSTRING problem

I en combo1 så har jag läst in en del filnamn.

Svenska_se_index.asp
english _gb_index.asp
osv

I combo3 så finns inläst bl a

AR_ARGENTINA_Spanish 
AU_AUSTRALIA_English 
AT_AUSTRIA_German 
BS_BAHAMAS_English

När jag klickar på ett namn i combo1, så vill jag slå upp det i combo3.

Public Declare Function SendMessageFind Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal _
   lParam As String) As Long
Global Const WM_USER = &H400
Global Const LB_ERR = (-1)
Global Const LB_FINDSTRING = &H18F
Global Const CB_FINDSTRING = &H14C

Dim strFind As String, Values As Variant
   Values = Split(frMultiLanguage.Combo1.Text, "_")
   strFind = Values(1)
   strFind = Combo3.ListIndex = SendMessage(Combo3.hwnd, CB_FINDSTRING, -1, strFind)

Vad som händer är ingenting.
Hur kan jag lösa detta?

strFind = Combo3.ListIndex = SendMessage(Combo3.hwnd, CB_FINDSTRING, -1, strFind)

borde väl lyda:

Combo3.ListIndex = SendMessageFind(Combo3.hwnd, CB_FINDSTRING, -1, strFind)

? Om den bara gör det så kommer det definitivt att funka.

Löste det själv genom att lägga en osynlig textbox som fick lagra resultatet ifrån combo1.