Role: This allows the creation of a Tag
The following code snippet can be used to obtain a TagFactory from a selected TagGroup
Dim objTagFactory As TagFactory
Set ParentObject = CATIA.ActiveDocument.Selection.FindObject("CATIAProduct")
Set objTagFactory = ParentObject.GetTechnologicalObject("TagFactory")