Enumerating Users in a Group

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
'"GroupName" group.
For Each NewUser In Group.Members
 Debug.Print NewUser.Name
 Debug.Print NewUser.FullName
Next NewUser