Visual Basic - Recordset.Seek .....BUSQUEDA??

¿ COMO PODRIA PRESCINDIR DEL CUADRO DEL INPUTBOX,PARA QUE LA INFORMACION QUE SE INTRODUCE EN ÉL PARA BUSCAR EL REGISTRO.........SE REALICE A TRAVES DE UN TEXTBOX CON LA PROPIEDAD CHANGE????

MENSAJE$ = "INTRODUZCA EL DATO PARA LA BUSQUEDA"
Searchtr$ = InputBox(MENSAJE$, " BUSQUEDA")
Data1.Recordset.Index = "CODIGO"
Data1.Recordset.Seek "=", Searchtr$
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
End If

GRACIAS.