how do I set a query result (an email) to a variable in ACCESS VBA?

Question

I am fairly new to ACCESS VBA. In the following code, I am trying to take a query result (an email address) and assign it to a variable. Then I want that variable to be assigned