Busqueda de dato en VBA sin poner todo de la celda

Hola Saludos
estoy realizando un formulario de busqueda de datos en excel solo que hace solo la busqueda si ingreso todo el dato de la celda B .... Y me gustaria que me ayudaran a saber como desplegar la busqueda sin tener que poner todo el dato de la celda
por ejemplo:
en el textBox1 tengo que poner : Programador10  
para que me de el resultado
y que con solo poner : Programador
me de el resultado de todos los datos que contengan "Programador" y lo despliege en un listBox
(programador10 xxx xxx xxx
programador 23 xxx xxx xxx
programador34 xxx xxx xxx)
La busqueda la hago desde el TextBox1 con un boton de busqueda
les dejo el codigo que utilio en la busqueda
Private Sub BtnBuscarCart_Click()
Dim No_Catalogo As String
Dim Id_busca As String
Dim Fila As String
Fila = 2
No_Catalogo = TextBox1
Do While Id_busca <> No_Catalogo
Fila = Fila + 1
Id_busca = Range("B" & Fila).Value
If Id_busca & No_Catalogo = Empty Then
MsgBox "No se encontro ningun dato"
Exit Do
End If
Loop