Line Direction/Bearing Using VBA

Is there an easy way to get a line's bearing from VBA?

Regards

Adrian