I'm looking for some help Reading and Populating a combobox with the custom property values inside any given part. I already have the macro where I can change specific properies. But I would also like the ability to change any property that is needed.

BTW if anybody uses or is looking for code that overwrites a specific property value these lines will work.

Private Sub OK_Button_Click()
Part.SummaryInfo(swSumInfoAuthor) = "Authors Name"
If Title_TxtBox = "" Then

     Else
          Part.SummaryInfo(swSumInfoTitle) = Title_TxtBox
               End If
 If Matl_TxtBox = "" Then

     Else
          Part.CustomInfo("Material") = Matl_TxtBox
               End If

Part.ForceRebuild3 (True)
Unload Me
End Sub