Visual Basic - AYUDA POR FAVOR !!!

Me ayudarian a modificar la Lìnea que contiene LIKE a los efectos de que en el cuadro del TextBox se puedan utilizar los comodines y me busque cualquier palabra como por ej.; ??as??? o ???ase*
Gracias por todo.

Private Sub Text1_Change()
Text1.SetFocus
With Rs
Dim TCadena, T As Variant
If Rs.RecordCount > 0 Then
List1.Clear
Rs.MoveFirst
TCadena = Len(Text1.Text)
While Not Rs.EOF
cadena = Mid(Rs(47), 1, Len(Text1.Text))

If UCase(cadena) Like UCase(Text1.Text) Then

List1.AddItem Rs(47)
' El 47 indica la posicion del campo dentro de la Base de Datos
End If
Rs.MoveNext
Wend
End If
End With
End Sub

dim x as database, y as recordset
set x=opendatabase(app.path&"\ejemplo.mdb")
set y=x.openrecordset("select * from tabla")

private sub text1_change()
list.datasourse=y
y.recordsource="select * from tabla where nombre like *' " & text1.text " ' * "
end sub