How can I restore links which already existed but get lost because of the element-id changed

VBA Code:
Private Sub SubstitudeItems() Dim obVar As Variable Dim obElem As Element Dim obPic As DynPicture Dim mystr As String Dim my2str As String Dim i As Integer Dim j As Integer Dim myVar As Variant Dim vColor As Variant For i = 0 To MyWorkspace.ActiveDocument.DynPictures.Count - 1 Set obPic = MyWorkspace.ActiveDocument.DynPictures.Item(i) For j = 0 To obPic.Elements.Count - 1 Set obElem = obPic.Elements.Item(j) If obElem.Type = 0 Or obElem.Type = 5 Or _ obElem.Type = 23 Or obElem.Type = 1 Then vColor = obElem.BackColor obElem.BackColor = RGB(12, 34, 56) obElem.BackColor = vColor myVar = obElem.DynPropertiesEnum("DynEleVar") mystr = obElem.DynProperties("DynEleVar[0].SymVarName") If Len(mystr) > 0 Then Set obVar = MyWorkspace.ActiveDocument.Variables.Item(mystr) obElem.AddVariable obVar End If End If Next j obPic.Save Next i Set obElem = Nothing Set obPic = Nothing Set obVar = Nothing End Sub