Journal Add workpart to TaggedObejct

Function SelectComponents(ByVal prompt As String, ByRef selObj() as TaggedObject) As Selection.Response
	 
	Dim theUI as UI = UI.GetUI
	Dim title As String = "Select components"
	Dim includeFeatures As Boolean = False
	Dim keepHighlighted As Boolean = False
        Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
	Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
	Dim selectionMask_array(1) As Selection.MaskTriple
	 
	With selectionMask_array(0)
		.Type = UFConstants.UF_component_type
		.Subtype = UFConstants.UF_all_subtype
	End With
		
	With selectionMask_array(1)
		.Type = UFConstants.UF_component_type
		.Subtype = UFConstants.UF_part_occurrence_subtype 
	End With
	 
	Dim resp as Selection.Response = theUI.SelectionManager.SelectTaggedObjects(prompt, title, scope, selAction, includeFeatures, keepHighlighted, selectionMask_array, selobj)
	If resp = Selection.Response.Ok Then
		Return Selection.Response.Ok
	Else
		Return Selection.Response.Cancel
	End If
	 
End Function