Does anyone have the vba code to get the edges a dimension is using in a drawing?

Say I select this dimension and want to get the info from those 2 edges to select them again.

Thanks - Eric