ReturnMidPtCoord
From scripting
Function ReturnMidPtCoord(X1 As Double, Y1 As Double, Z1 As Double, X2 As Double, Y2 As Double, Z2 As Double) As Variant Dim FinalPt(2) FinalPt(0) = (X1 + X2) / 2 FinalPt(1) = (Y1 + Y2) / 2 FinalPt(2) = (Z1 + Z2) / 2 ReturnMidPtCoord = FinalPt End Function