Selection Set for XDATA objects

Is it possible to convert following lisp statement to VBA?
I would like to make a selection set of all the objects that have DATESTAMP
application as an XDATA.

If so how?

(setq s1 (ssget "X" (list (list -3 (list "DATESTAMP")))))

 

Here is a sample:
Sub test()
Dim intFilterType(0) As Integer
Dim varFilterData(0) As Variant
Dim objSelSet As AcadSelectionSet
Dim varDat As Variant, varVal As Variant

intFilterType(0) = 1001: varFilterData(0) = "DATESTAMP"
varDat = intFilterType(0): varVal = varFilterData(0)
Set objSelSet = ThisDrawing.SelectionSets.Add("rr")
objSelSet.Select acSelectionSetAll, , , intFilterType, varFilterData
MsgBox objSelSet.Count
objSelSet.Delete

End Sub

Note the use of the extra variants, I can't remember why I had to do that -
I guess it was a bug.

Good Luck,

Scott

 

Disregard that...its been a long day...

Sub test()
Dim intFilterType(0) As Integer
Dim varFilterData(0) As Variant
Dim objSelSet As AcadSelectionSet

intFilterType(0) = 1001: varFilterData(0) = "DCO15"
Set objSelSet = ThisDrawing.SelectionSets.Add("rrr")
objSelSet.Select acSelectionSetAll, , , intFilterType, varFilterData
MsgBox objSelSet.Count
objSelSet.Delete

End Sub

Scott