Ermittlung des internen Namen:

Function InternerName(MyObjekt As Object) As String
  On Error Resume Next
  Dim MyElement As ModelElement
  Set MyElement = MyObjekt.GetItem("ModelElement")
  InternerName = MyElement.InternalName
  If Err.Number <> 0 Then
      InternerName = vbNullString
  End If
End Function