'Costruisci la struttura di binding
Dim files As New List(Of String)
files.AddRange(System.IO.Directory.GetFiles("C:\"))
Dim bs1 As New BindingSource
bs1.DataSource = files
Me.ListBox1.DataSource = bs1

'Filtri i dati (non so esattamente come scrivere la stringa per filtrare ma con una ricerchina si trova il modo)
bs1.Filter="Campo='" & TextBox.Text &"'"