Sub GetHorizontalAngle(x, y, z, ByRef hx, ByRef hy, ByRef hz)

Get the rotation vector that would make a (0,0,1) direction vector point in the same direction as the given direction vector