Reduce Length of Diagonal Line Segment VBA

Hello,

I have a diagonal line and would like to reduce it's length by 2 units.  Is this done by trigonometry or are there utility functions available for computing points based on angle and length?

Thanks in advance!

Jr.