Can anybody help?

I have the following VBA macro....

Dim swApp As Object

Sub Main()
    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    vConfName = swModel.GetConfigurationNames

    For i = 0 To UBound(vConfName)
        Set swConfig = swModel.GetConfigurationByName(vConfName(i))
      
        nNumProp = swConfig.GetCustomProperties(vPropName, vPropValue, vPropType)

        MsgBox "  Config       = " & vConfName(0)

        For j = 0 To nNumProp - 1
            MsgBox vPropName(j) & " = " & vPropValue(j)
        Next j
    Next i
End Sub

The above macro displays the values in the "Configuration Specific" tab.

How do I change the above macro to display the values in the "Custom" tab?

Many thanks in advance!!!!!

Darren