autocad vba problem - offset a circle continously towards the center (look like a target for archery)

anyone can help? thanks a lot!