Sub CATMain()

Dim StrWorkbench As StrWorkbench
Dim strFactory As StrObjectFactory

Set doc = CATIA.ActiveDocument
Dim rootProduct As Product
Set rootProduct = doc.Product
   
Set StrWorkbench = doc.GetWorkbench("StrWorkbench")
    
Dim strPlates As strPlates
Set strPlates = rootProduct.GetTechnologicalObject("StructurePlates")
   
Dim strMembers As strMembers
Set strMembers = rootProduct.GetTechnologicalObject("StructureMembers")

Dim selection1 As Selection
Set selection1 = doc.Selection

selection1.Search "Name='Coping.1',all"

Dim NibblingToEdit As StrNibblingFeature
Set NibblingToEdit = selection1.Item(1).Value

Dim SubTypeOFNibbling As String
SubTypeOFNibbling = NibblingToEdit.SubType

NibblingToEdit.SubType = "CurrCurr"

End Sub