Is it possible to use VBA to set the focus on a criteria in design view on a query?

I would like to create an Event Procedure that is a series of actions including pasting a number into a criteria within a query.