Searching for the parent of a value list item

I have found the issue in my script and a way to get the value list's 'parent' ID:

Dim SearchForValue: SearchForValue = "Apple"
                    
 Dim oSc : Set oSc = CreateObject("MFilesAPI.SearchCondition")
Dim oScs : Set oScs = CreateObject("MFilesAPI.SearchConditions")
oSc.ConditionType = MFConditionType.MFConditionTypeStartsWith
oSc.Expression.SetValueListItemExpression MFValueListItemPropertyDef.MFValueListItemPropertyDefName, MFParentChildBehavior.MFParentChildBehaviorNone, Nothing
oSc.TypedValue.SetValue MFDataType.MFDatatypeText, SearchForValue
oScs.Add -1, oSc

Dim ValueList: ValueList = 125 ' the ID of the value list for fruits

'Perform search.
Dim oRes
Dim oResults : Set oResults = vault.ValueListItemOperations.SearchForValueListItemsEx(ValueList,oScs,false,MFExternalDBRefreshType.MFExternalDBRefreshTypeNone,true)

'Result:
If oResults.Count = 1 Then ' Only try to write if there is one result
                        Dim IDOfResult, IDOfOwner
                        Set oRes = oResults.Item(1)
                        IDOfResult = oRes.ID
                        IDOfOwner = oRes.OwnerID
End If

• At line 6 added: "Nothing". That was the source of the Type Mismatch error. *
• The value list's 'parent' is named Owner and was found using "oRes.OwnerID"

*by the way, see https://www.m-files.com/api/documentation/#MFilesAPI~Expression~SetValueListItemExpression.html where

SetValueListItemExpression

is described to have an optional 'DataFunctionCall'. But hovering over it pops up an explanation that tells to actually use 'nothing' in vbscript. :

I have found the issue in my script and a way to get the value list's 'parent' ID:

Dim SearchForValue: SearchForValue = "Apple"
                    
 Dim oSc : Set oSc = CreateObject("MFilesAPI.SearchCondition")
Dim oScs : Set oScs = CreateObject("MFilesAPI.SearchConditions")
oSc.ConditionType = MFConditionType.MFConditionTypeStartsWith
oSc.Expression.SetValueListItemExpression MFValueListItemPropertyDef.MFValueListItemPropertyDefName, MFParentChildBehavior.MFParentChildBehaviorNone, Nothing
oSc.TypedValue.SetValue MFDataType.MFDatatypeText, SearchForValue
oScs.Add -1, oSc

Dim ValueList: ValueList = 125 ' the ID of the value list for fruits

'Perform search.
Dim oRes
Dim oResults : Set oResults = vault.ValueListItemOperations.SearchForValueListItemsEx(ValueList,oScs,false,MFExternalDBRefreshType.MFExternalDBRefreshTypeNone,true)

'Result:
If oResults.Count = 1 Then ' Only try to write if there is one result
                        Dim IDOfResult, IDOfOwner
                        Set oRes = oResults.Item(1)
                        IDOfResult = oRes.ID
                        IDOfOwner = oRes.OwnerID
End If

• At line 6 added: "Nothing". That was the source of the Type Mismatch error. *
• The value list's 'parent' is named Owner and was found using "oRes.OwnerID"

*by the way, see https://www.m-files.com/api/documentation/#MFilesAPI~Expression~SetValueListItemExpression.html where

SetValueListItemExpression

is described to have an optional 'DataFunctionCall'. But hovering over it pops up an explanation that tells to actually use 'nothing' in vbscript. :