GetSuccNodes in a VACD

I've found a workaround:

Dim oObjOccs As Object
Dim oCurrentObjOcc As Object
	
Set oObjOccs = oCurrentModel.ObjOccListFilter(OT_FUNC)
'Objects are sorted on the basis of their names.
oObjOccs.Sort(AT_NAME,SORT_NONE,SORT_NONE,g_nloc)
If oObjOccs.Count() > 0 Then
	For i = 0 To oObjOccs.Count()-1
			
		Set oCurrentObjOcc = oObjOccs.Get(i)
		Set oAssignedModels = oCurrentObjOcc.ObjDef().AssignedModels()
			
		If oAssignedModels.Count() > 0 Then
			For j = 0 To oAssignedModels.Count()-1
				If Not(oAssignedModels.Get(j).IsEqual(oCurrentModel)) Then
                                            'Some stuff here
				End If
			Next j
		End If
			
	Next i
End If