Dim intData() As Integer
Dim varData() As Variant
Dim dblPnt(0 to 2) As Double
BuildFilter intData, varData, 0, "INSERT", _
-4, "<or", _
70, 0, _
70, 2, _
-4, "<and", _
2, "`*U#*", _
-4, "*,*,<>", _
10, dblPnt, _
-4, "and>", _
-4, "or>"
' Ensure a selection set is not already in memory.
'
Set ssTitleBlock = vbdPowerSet("SSET_BLOCKS")
' Build the selection set.
'
ssTitleBlock.Select Mode:=acSelectionSetAll, FilterType:=intData,
FilterData:=varData
' Was anything actually found?
'
If ssBlock.Count = 0 Then
...
..