Edit Segment of line or shape using VBA

I'm trying to modify the elevation of  a single segment of a linestring any suggestion will be helpful

Thanks in advance