Как менять информацию в "ModelSpace"?

Sub info_2_model(sh)
Dim DataType(0 To 6) As Integer
Dim Data(0 To 6) As Variant
DataType(0) = 1001: Data(0) = sh.nam
DataType(1) = 1000: Data(1) = sh.nam
DataType(2) = 1040: Data(2) = sh.tipe
DataType(3) = 1040: Data(3) = sh.shirina
DataType(4) = 1040: Data(4) = sh.glubina
DataType(5) = 1040: Data(5) = sh.visota
DataType(6) = 1040: Data(6) = sh.tipe_back_panel              ThisDrawing.ModelSpace.SetXData DataType, Data
End Sub

Sub TestSet_Xdata()
Dim sh As AcadModelSpace
Dim DataType(0 To 6) As Integer
Dim Data(0 To 6) As Variant
Set sh = ThisDrawing.ModelSpace
Dim nam As Variant
nam = "Store Model XDATA"
Dim tipe As Variant
tipe = 10.25
Dim shirina As Variant
shirina = 1200.05
Dim glubina As Variant
glubina = 800.5
Dim visota As Variant
visota = 500#
Dim tipe_back_panel As Variant
tipe_back_panel = 300#
DataType(0) = 1001: Data(0) = nam
DataType(1) = 1000: Data(1) = nam
DataType(2) = 1040: Data(2) = tipe
DataType(3) = 1040: Data(3) = shirina
DataType(4) = 1040: Data(4) = glubina
DataType(5) = 1040: Data(5) = visota
DataType(6) = 1040: Data(6) = tipe_back_panel
sh.SetXData DataType, Data
End Sub
'J'_________________________________________'J'
Sub TestGet_Xdata()
Dim sh As AcadModelSpace
Dim DataType As Variant
Dim Data As Variant
Dim i As Integer
Set sh = ThisDrawing.ModelSpace
sh.GetXData "", DataType, Data
For i = 0 To UBound(Data)
Debug.Print Data(i)
Next
End Sub

Public Type shelvng
 nam As String
 tipe As Double
 shirina As Double
 glubina As Double
 visota As Double
 tipe_back_panel As Double
End Type