Private Sub FindWares()
Dim s As String,t As String
Dim v As Variant, k As Long, M As Long
'......Пром. действия......
s = InputBox("Введите искомую часть наименования" & vbCrLf _
        & "или нажмите Esc для отмены", "Поиск товара...", s)
If Len(s) =  0  Then Exit Sub
cbxFindWare.Clear
With Grid
'.... Определение М убрано из исходника........
    ReDim v( 0  To M,  0  To  1 )
    k =  0 
    For i =  1  To N -  1           'Наполняем массив
        t = .TextMatrix(i,  5 )   'строк и индексов.
        If InStr( 1 , t, s) Then
            v(k,  0 ) = t         'отображаемая строка
            v(k,  1 ) = i         'неотображаемый индекс
            k = k +  1 
        End If
    Next i
    cbxFindWare.List() = v      'Заносим массив в Combo
    Erase v
    cbxFindWare.DropDown        'Раскрываем ComboBox
End With
End Sub

Private Sub cbxFindWare_Click() 'Здесь извлекается индекс,
With cbxFindWare                'адресуемый строкой в списке
    Dim i As Long, k As Long, s As String
    i = .ListIndex
    If i = - 1  Then Exit Sub
    s = .List(i,  0 )             'отображаемая строка
    k = .List(i,  1 )             'неотображаемый индекс
'......Пром. действия........
'
End With
End Sub