Het is oké, het kwam bij me terug!
Ter info, hier is mijn code, het is niet academisch, maar het werkt!
Dim swApp als SldWorks.SldWorks
Dim deel als SldWorks.ModelDoc2
Dim retval Als Booleaanse
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Deel instellen = swApp.ActiveDoc
Titel dimmen als tekenreeks
title = Deel.GetTitle
Foutopsporing.Titel afdrukken
Dim QuotQtéBelem als snaar
QuotQtéBelem = Chr(34) & "QtéBelem" & "@" & titel & Chr(34)
retval = Part.DeleteCustomInfo2("", "QTEBELEM")
retval = Part.AddCustomInfo3("", "QTEBELEM", 30, QuotQtéBelem)
Einde Sub