Write a reference in Attribut via VBA in EB2020

Hello,
I write the reference "<0:20-12>" with an macro (VBA) in an attribute (A25)
oObj.Attributes.ItemByID(25) = "<0:20-12>"

The Result in Engineering Base R2:
oObj.Attribute.ItemByID(25).TranslateValue = "<0:20-12>"
oObj.Attribute.ItemByID(25).Value = "Start"

The Result in Engineering Base 2020:
oObj.Attribute.ItemByID(25).TranslateValue = "<0:20-12>"
oObj.Attribute.ItemByID(25).Value = "@"


In EB 2020, is for each reference the .Value only an "@".
What can I do to get the right result in EB 2020?