Sub GroupAdd()
Dim mySpace As Workspace
Dim grpRegistrars As Group
Dim strGroupPID As String
Set mySpace = DBEngine(0)
strGroupPID = "5678"
Set grpRegistrars = mySpace.CreateGroup("Registrars")
grpRegistrars.PID = strGroupPID
mySpace.Groups.Append grpRegistrars
End Sub