SolidWorks VBA: Copia Incolla di una stringa nella Clipboard (COPY/PASTE)

Cercando sul Forum di SolidWorks come implementare in VBA il copia/incolla di una stringa, mi è uscito un post che risolve il problema solo se si possono attivare le Aggiunte.

Ho quindi cercato una soluzione alternativa, che propongo:

Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"

Public Sub CopyStringToClipboard(ByVal Expression As String)
 With CreateObject(DATAOBJECT_BINDING)
 .SetText Expression
 .PutInClipboard
 End With
End Sub

E’ sufficiente passare a questa subroutine la stringa da copiare in memoria e il gioco è fatto.