ko

Dim cuID : cuID = Vault.CurrentLoggedInUserID

Dim DepartmanUGs : Set DepartmanUGs = VaultUserGroupOperations.GetUserGroups()

For Each departman In DepartmanUGs

 For dP In departman.members

  If dP.id = cuID then

   Output = departman.id

   Exit For

  End If

 Next

Next