VBA - accessing linkages

Hi,

I've got a problem accessing by VBA user attributes stored in Linkages in a dgn file.

Could somebody please have a look on below code and advice. The TransferBlock procedure for sure works fine because I tried it in different macro which shows the id of selected element (not feature).

The macro itself is a modified one from Bentley Map V8i Development and Product Customization Guide.

I attach the .mvba file and sample dgn.

clsLoadProperties:

Implements ILocateOpEvents

Private Sub ILocateOpEvents_OnCleanup()

End Sub

Private Const lIDGL      As Long = 889      ' ID of mine attribute
Private Sub ILocateOpEvents_OnFinished(ByVal locateOP As xft.ILocateOp)
    Dim fe As FeatureEnumerator
    Dim oElement As element
    Dim IDglReturn As Long
    Dim tDBlock()   As DataBlock

    Set fe = locateOP.GetLocatedFeatures

    Dim oFeature As feature

    Do While fe.MoveNext
        Set oFeature = fe.Current

        tDBlock = oFeature.Geometry.GetUserAttributeData(lIDGL)
        TransferBlock tDBlock(0), 0, IDglReturn, False

        With oFeature
            .SetProperty "id_gl", IDglReturn
            .ApplyAttributeChanges
            .Write (False)
        End With
    Loop

End Sub

Private Sub ILocateOpEvents_OnRejected(ByVal RejectedReasonType As xft.LocateOpRejectedReasonType, RejectedReason As String)

End Sub

Private Sub ILocateOpEvents_OnTerminate()

End Sub

Private Sub ILocateOpEvents_OnValidate(ByVal RootFeature As xft.IFeature, ByVal element As element, Point As Point3d, ByVal View As View, Accepted As Boolean, RejectReason As String)

End Sub

Private Sub TransferBlock(dBlk As DataBlock, lOffset As Long, value As Long, _
                            copyToDataBlock As Boolean)
    With dBlk
        .Offset = lOffset
        .CopyLong value, copyToDataBlock
    End With
End Sub

budynki_shape2.dgn