Search listbox through textbox

Dear Forum,

I'm trying to get textbox1 to filter all columns from listbox1.
And, I'd like the listbox to refresh when I mistype (rollback)

I simply populate the listbox as shown below

Dim x As Long
x = Sheets("saneren").Cells(Rows.Count, 1).End(xlUp).row

With ListBox1
    .ColumnCount = 6
    .ColumnWidths = "100;0;0;0;0;0"
    .ColumnHeads = False
    .RowSource = "=saneren!A1:F" & x + 1
    '.MultiSelect = fmMultiSelectMulti
End With

Based on this, how can I get the textbox to work for me as desired?

Regards, Ruud.