Adding and Removing Users in a Group

Dim Group as IADsGroup
'Bind to the known Group.
'Here DomainName is your domain name.
'Abelian is a Group
Set Group = GetObject("NTDS://DomainName/Abelian")

'"Jane" must be the name of an already existing User in this Domain
Group.Add("Jane")

'Remove User named "Jane" from the "Abelian" group.
Group.Remove("Jane")