VB Script里面怎样复制一个对象？

olive

我用office 2000里面的VB给excel写程序，假如我设置了一个对象A, 我想把A赋给B, 用set b=a只是建立了一个指向A的指针，A变化了B也跟着变。这不是我想要的。我想建立的是A的一个真正的副本。
除了把对象里面的东西一个一个复制给B以外，没有什么更好的方法来做到这一点吗？