If Not oTest Is Nothing Then>
Dim oObj Set oObj = Nothing If IsObject(oObj) Then MsgBox "It's an object" IF IsNull(oObj) Then MsgBox "...and it's null" Else MsgBox "...but it's not null" If IsEmpty(oObj) Then MsgBox "...and it's emtpy!" End if End if End IfYou'll get two messageboxes. The first will say it's an object, and the second will say that it's not null.