if (ref($var) eq "Win32::OLE::Variant" && $var->Type == VT_ERROR) {
    ...
}