SrcComboBox

Public Function ComboBoxIndex(ByVal lHwnd As Long, ByVal sSearchText As String) As Long
ComboBoxIndex = SendMessageAny(lHwnd, CB_FINDSTRING, -1, ByVal sSearchText)
End Function

note that the 'byval' ssearchtext' is important
if you use SendMessageAny