Sub CurveLength() Dim s As Shape Set s = ActiveSelection.Shapes(1) If s.Type = cdrCurveShape Then MsgBox "The length of the curve is: " _ & vbCrLf & s.Curve.Length & " inches" End IfEnd Sub