Last modified in Fully automated workflow?

In my case all transitions are automatic based on different criteria. Now in every case last modified is M-Files server. I have user that could be used stored in property.

fUser = CurrentUserID
Dim oCurrentUserTypedValue : Set oCurrentUserTypedValue = CreateObject( "MFilesAPI.TypedValue" )
oCurrentUserTypedValue.SetValue MFDataTypeLookup, fUser
Vault.ObjectPropertyOperations.SetLastModificationInfoAdmin ObjVer, True, oCurrentUserTypedValue, False, Nothing

-> M-Files Server

fUser = 1322

-> M-Files Server

I have to use code in every transition so that M-Files accepts it. If M-Files would allow "infinite loops" I would not need code and I probably would get right Last modified.

So how do I get that code to work or some other way?

PJ