Public Sub MeasureAngle( _
   ByVal Element1 As Object, _
   ByVal Element2 As Object, _
   ByRef TrueAngle As Double, _
   ByRef ApparentAngle As Double, _
   Optional ByVal Element3 As Variant _
)