How to set the properties in Cut List using macro?

I am writing a macro to set  a few properties of the cut list items.

Pre conditions : a few cut list items are selected.

Post conditions:

1. Boundary boxes are created. 

2. Bounding Box Width and length are found

3. Description is set

Option Explicit

Dim swApp As Object

Dim swModel As SldWorks.ModelDoc2

Dim swSelMgr As SldWorks.SelectionMgr

Dim swCustPropMgr As SldWorks.CustomPropertyManager

Dim swFeat As SldWorks.Feature

Dim selComp As Component2

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim i As Integer

Dim iCount As Integer

Dim bool As Boolean

Dim valout As String

Dim strValue(7)         As String

Dim Counter As Integer

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    iCount = swSelMgr.GetSelectedObjectCount2(-1)

    For i = 0 To iCount - 1

        Set selComp = swSelMgr.GetSelectedObjectsComponent4(i + 1, -1)

        MsgBox (selComp.Name2)

        bool = swModel.Extension.SelectByID2(selComp.Name2, "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)

       

       

        swModel.Extension.Create3DBoundingBox

            Counter = Counter + 1

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Get4 "Bounding Box Width", False, strValue(0), strValue(1)

            swCustPropMgr.Get4 "Bounding Box Length", False, strValue(2), strValue(3)

            swCustPropMgr.Set2 "Description", "Bar" & Counter

           

           

           

            If strValue(0) <= 3.18 And strValue(0) >= 3.13 Then

                MsgBox (strValue(0))

            End If

    Next i

End Sub

SolidworksApi macros