Difference between revisions of "IsSpace"

From scripting
Jump to: navigation, search
(Created page with " Function IsSpace(Obj1 As Variant) As Boolean On Error GoTo Blast Dim HHH As ArcSpace Set HHH = Obj1 IsSpace = True Exit Function Blast: IsSpace = False End Function...")
 
(No difference)

Latest revision as of 07:03, 22 April 2017

Function IsSpace(Obj1 As Variant) As Boolean
On Error GoTo Blast
Dim HHH As ArcSpace
Set HHH = Obj1
IsSpace = True
Exit Function
Blast:
IsSpace = False 
End Function