vbscript: Added support for VT_BYREF|VT_VARIANT to to_int.

dlls/vbscript/global.c

@@ -152,6 +152,9 @@ static inline HRESULT return_date(VARIANT *res, double date)
 
 HRESULT to_int(VARIANT *v, int *ret)
 {
+    if(V_VT(v) == (VT_BYREF|VT_VARIANT))
+        v = V_VARIANTREF(v);
+
     switch(V_VT(v)) {
     case VT_I2:
         *ret = V_I2(v);

dlls/vbscript/tests/lang.vbs

@@ -964,7 +964,6 @@ Class Property2
     Function Property()
     End Function
 
-
     Sub Test(property)
     End Sub
 
@@ -1042,4 +1041,7 @@ for x=1 to 1
     forarr(1) = x+1
 next
 
+x=1
+Call ok(forarr(x) = 2, "forarr(x) = " & forarr(x))
+
 reportSuccess()