请指教！变体内存泄露的问题

STDMETHODIMP Test::tesA(VARIANT *pp, long *rt)
{

_variant_t vntTemp("Test String");
VARIANT m_Dest=vntTemp.Detach();
VariantCopy(pp,&(m_Dest));

*rt=1;
return S_OK;
}

经测试，发现此处内存泄露，请不吝指教！