Public Sub NormalDistance( _
   ByVal Element1 As Object, _
   ByVal Element2 As Object, _
   ByRef TrueDistance As Double, _
   ByRef ApparentDistance As Double, _
   ByRef DeltaX As Double, _
   ByRef DeltaY As Double, _
   ByRef DeltaZ As Double, _
   Optional ByVal CoordinateSystem As Variant _
)