Set type of destination variant in VariantChangeTypeEx function.

diff --git a/ole/variant.c b/ole/variant.c
index 5490d22..ad63734 100644
--- a/ole/variant.c
+++ b/ole/variant.c
@@ -1986,6 +1986,11 @@
 	 */
 	VariantClear( &varg );
 	
+	/* set the type of the destination
+	 */
+	if ( res == S_OK )
+		pvargDest->vt = vt;
+
 	return res;
 }