use Win32::OLE::Variant;

    # ...

    my $result = Variant(VT_BYREF|VT_BSTR);
    my $return = $registry->GetStringValue(2147483650, $strPath, $strValue, $result);