Sub Test() Dim crv As Curve Set crv = ActiveShape.Curve MsgBox "The curve contains:" & vbCr & _ "Nodes: " & crv.Nodes.Count & vbCr & _ "Segments: " & crv.Segments.Count & vbCr & _ "Subpaths: " & crv.Subpaths.CountEnd Sub