Find as you type in listbox control - solution for multi-column listbox - vba dictionary

hi

I have the following code courtesy o jindon from an old thread (2011) at the Mrexcel forum. It works well for a listbox containing only one column, but i need it for a three column listbox. i would appreciate some help as i dont know much about dictionaries.

I have three columns of data and i want the three items for any matched rows to be returned to the listbox.

Userfilter is the name of the textbox on the form where the user enters a string to search and filternames is the name of the listbox where results are returned.

I prefer this dictionary approach as its alot faster than an array solution i tried.

thanks

Private Sub UserFilter_Change()
Dim a, e
UserFilter.Clear
With Sheets("names")
    a = .Range("a2", .Range("a" & Rows.Count).end(xlUp)).Value
End With
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For Each e In a
        If InStr(1, e, UserFilter.Value, 1) > 0 Then .item(e) = e
    Next
    If .Count > 0 Then Filternames.List = .keys
End With
End Sub

In the sample file, id like to see the company ID, name and location in the listbox. Click the blue button on the first sheet to launch the form. thanks

Sample file attached : Dict.xlsb