Moving a Circle Z direction along the Current UCS

I have a circle that I would like to move ‘Z’ direction along the Current UCS. The Current UCS can be in any 3d plane.

The code that I have only moves the circle 5 units up along the WCS.

                Dim Zp As New Vector3d(0, 0, 5)
                Zp.TransformBy(ed.CurrentUserCoordinateSystem)
                myCircle.TransformBy(Matrix3d.Displacement(Zp))

Please help. Thank you.

-J

Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.

Image may be NSFW.
Clik here to view.