Как убрать присоединенный XDate?

Public Sub RemXData(ByVal acObj As AcadObject, ByVal appName, ByVal dxftype)
    Dim xdType(1) As Integer
    Dim xdData(1) As Variant
    xdType(0) = 1001: xdType(1) = dxftype
    xdData(0) = appName: xdData(1) = ""
    acObj.SetXData xdType, xdData
End Sub
' Example:
Sub RemoveXData()
Dim pt  As Variant
Dim appName, dxftype
appName = "MyApp" '> имя приложения
dxftype = 1000 '> код данных
Dim objEnt  As AcadObject
ThisDrawing.Utility.GetEntity objEnt, pt, "Select object"
Call RemXData(objEnt, appName, dxftype)
objEnt.Update
'Check on removing xdata
Dim xdType As Variant
Dim xdData As Variant
objEnt.GetXData "", xdType, xdData
If xdData(1) = "" Then
MsgBox "App name is: " & xdData(0)
MsgBox "XData value is empty string"
End If
End Sub