Query AD for Email

We use five-digit logins for our users (e.g. 76543). I would like to use VBA to query the email address of a specific user, identified by that five-digit name. I assume that means a query to ActiveDirectory... can anyone offer help with VBA code to do that?