'Add a new Tag Dim newtagsets As TagSets Set newtagsets = MicroStationDGN.ActiveDesignFile.TagSets Dim newtagset As TagSet 'The following statement is to add a new tag set within which a new tag definition will be created 'To create new tag definition in an existing tag set 'change the with the actual tag set name and uncomment 'the following line and comment the next line 'Set newtagset = newtagsets.item("") Set newtagset = newtagsets.Add("NewTagSet1") Dim NewTagDefs As TagDefinitions Set NewTagDefs = newtagset.TagDefinitions Dim newTagDef As TagDefinition Set newTagDef = NewTagDefs.Add("NewTagDef1", msdTagTypeCharacter) newTagDef.Prompt = "This is a new Tag" 'Remove existing Tag with name NewTagDef1 Dim TagSets As TagSets Dim TagSet As TagSet Dim TagDefs As TagDefinitions Dim TagDef As TagDefinition Dim i As Integer Dim j As Integer Dim k As Integer i = 1 k = 1 Set TagSets = MicroStationDGN.ActiveDesignFile.TagSets 'if a tagset name is not known use the following For Each Item In TagSets Set TagSet = TagSets.Item(i) Set TagDefs = TagSet.TagDefinitions j = TagDefs.count For k = 1 To j Set TagDef = TagDefs.Item(k) If TagDef.Name = "NewTagDef1" Then TagDefs.Remove (k) End If k = k + 1 Next i = i + 1 Next 'if a tagset and Tag set name is known 'uncomment the following and put the name of the tag set in place of and 'comment the from Dim TagDef as... to ...i= i+1 Next 'Set TagSet = TagSets.Item("") 'Set TagDefs = TagSet.TagDefinitions 'TagDefs.Remove("")