VBA Catia V6: Create macro to reset sketch absolute axis

Hi, I am trying to use a vba script to move the absolute axis of a sketch from one 3D point to another. I want the geometry to move with the updated coordinates as well. I feel like I remember doing this before a few months ago, but now I am finding it very difficult to use the built-in functions due to them being 2d points and lines that do not take in 3d points and lines. If anyone has any advice.. that would be greatly appreciated! Thank you!