How does one set a double type to a VARIANT RT_8 type?

Thanks