Dim obj

Set obj = GetObject(...)
A(0) = obj