Dim Group As IADsGroup
Dim NewUser As IADsUser
'Bind to the known group.
'DomainName is your domain name.
'GroupName is the name of an existing Group
Set Group = GetObject("NTDS://DomainName/GroupName")
'Enumerate the Users in the domain named "MSFT" & which are in the
For Each NewUser In Group.Members