Active Directory Query with Macro

[Andrew.Trevayne]

Hi All,
I would like to check with you guys if any of you had a working Macro that could query Active Directory? I did some searches here and tested the solution that was given from previous request however it was not working for me.
Basically, what I need is to query a LANID and return the Security groups that LANID is a Member of.

Perhaps on Cell A1 I will put in the LAN ID and I like the result to be returned on Cell B1 onwards.

Can this be done? Appreciate your help.
Thanks in advance.

Similar post also started on the below links:
Mr. Excel
VBA Express