Pasar un código de evento hoja a un formulario textbox

Tengo un código que filtra datos a partir de una parte de la palabra buscada en la cenda B2, lo importante de este código es que no solamente busca las primeras letras de la palabra osea:

Si busco JUEVES y pongo jue este lo buscara en una lista especifica con éxito además de regresar las palabras que empiecen con JUE, lo que me gusta de este código es que

Si en b2 coloco VES entonces me regresara todas aquellas palabras que contenga VES incluyendo jueVES...

el código es el sig.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect "28021990"
If ActiveSheet.FilterMode Then ShowAllData
Application.EnableEvents = False
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",FALSE)"
Target.Value = "*" & Target.Value & "*"
Application.EnableEvents = True
'desactivamos la actualizacion de la pantalla, es decir ocultamos lo que la macro hace
Application.ScreenUpdating = False
'si existe algun error de uso lo ignora o salta al siguiente error
On Error Resume Next
'BD dinamica lista para efectuar el filtro avanzado en el mismo lugar, desde B1 hasta D2
u = Range("B" & Rows.Count).End(xlUp).Row
Range("B4:E" & u).AdvancedFilter 1, _
Range("B1"). CurrentRegion
'autoajusta toda fila usada
Cells. Rows. AutoFit
'autoajusta toda columna usada
Cells. Columns. AutoFit
'activamos la actualización de la pantalla
Application.ScreenUpdating = True
ActiveSheet.Protect "28021990"
Range("B2").Select
Range("A6:A900").Value = "Pulsa aqui"
End If
End Sub

Lo que quisiera es pasar este código en un TEXTBOX1 que al poner la palabra como lo ponga este me regrese los datos en un LISTBOX (la celda que usaba era la B2) que la sustituirá el TEXTBOX y los datos se encuentran en la col B, (eso no creo que cambiara) solo es pasar la el código.