Dim MyVar
MsgBox MyVar
MsgBox TypeName(MyVar)
MsgBox IsEmpty(MyVar)
Dim MyVar
MyVar=Null
MsgBox "" & MyVar
MsgBox TypeName(MyVar)
MsgBox IsNull(MyVar)
Dim MyObj
Set MyObj = CreateObject("Scripting.Dictionary")
MsgBox TypeName(MyObj)
MsgBox IsObject(MyObj)
Set MyObj = Nothing
If "Nothing" = TypeName(MyObj) Then
MsgBox IsObject(MyObj)
End If