In case someone has a use for this.....

' This code updates the Configuration Properties "Description" to equal that configurations Custom Property "ITEMMASTER"

' ******************************************************************************

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.PartDoc

Dim Doc As SldWorks.ModelDoc2

Dim SelMgr As SldWorks.SelectionMgr

Sub main()

    Set swApp = Application.SldWorks

    Set Doc = swApp.ActiveDoc

    Set SelMgr = Doc.SelectionManager

    Dim params As Variant

    params = Doc.GetConfigurationNames

    Dim vName As Variant

    Dim Name As String

    Dim thisConfig As Configuration

    Dim swModel As SldWorks.ModelDoc2

    Dim cusPropMgr As SldWorks.CustomPropertyManager

    Dim lRetVal As String

    Dim FieldName As String

    Dim vPropNames As Variant

    Dim vPropTypes As Variant

    Dim vPropValues As Variant

    Dim ValOut As String

    Dim ResolvedValOut As String

    Dim wasResolved As Boolean

    Dim resolved As Variant

    For Each vName In params

        Name = vName

        Set thisConfig = Doc.GetConfigurationByName(Name)

        Set cusPropMgr = thisConfig.CustomPropertyManager

        '***Substitute the Custom Property name to be used instead of "ITEMMASTER" in the line below

        lRetVal = cusPropMgr.Get5("ITEMMASTER", False, ValOut, ResolvedValOut, wasResolved)

         thisConfig.Description = ValOut

    Next vName

End Sub