VBScript will pass parameters to a method by value if the argument's data type is NOT declared as a variant and the parameter is passed by reference if the argument's data type is declared as variant by the method.
so modify your method as
myinterface(/*[in]*/ BSTR R1, /*[out]*/ VARIANT* Error, /*[out, retval]*/ BSTR* ret)