1: 2: 3: 4: 5:
Function isNothing(obj As Object) As Boolean On Error Resume Next isNothing = True isNothing = TypeName(obj.Name) = "Nothing" End Function