请高手看看关于variant的问题

sccat

我想判断getxdata返回的variant 是否empty，然后将里面的东西变成字符串返回，怎么不行啊？发生致命错误． 请高手指点一下． Private Sub CommandButton2_Click()
Dim ssetObj As AcadSelectionSet
Dim elem As AcadObject
Dim DataType As Variant
Dim Data As Variant

On Error Resume Next
ThisDrawing.SelectionSets("text").Delete
Set ssetObj = ThisDrawing.SelectionSets.Add("text")
Err.Clear
On Error GoTo 0

' Add objects to a selection set by prompting user to select on the screen
'While (True)
selectagain:
ssetObj.SelectOnScreen
For Each elem In ssetObj

If Right(elem.ObjectName, 4) = "Text" Then
elem.GetXData ApplicationName, DataType, Data
If IsEmpty(Data) <> True Then
'Label1.Caption = CStr(Data(0)) + " " + CStr(Data(1)) + " " + CStr(Data(2))
Label1.Caption = CStr(Data(0))
End If
End If



Next
' Wend


If ssetObj.Count <> 0 Then
ssetObj.Clear
GoTo selectagain
End If

ssetObj.Delete
End Sub

yulijin608

用If IsArray(DataType) then就可以了