MsgBox TypeName(&H8000)
MsgBox TypeName(&H8000&)