Sub Test() Dim nr As NodeRange Dim s As String Set nr = ActiveShape.Curve.Selection If nr.Count = 0 Then s = "No nodes selected" Else s = CStr(nr.Count) & " " Select Case nr.Type Case cdrSymmetricalNode s = s & "symmetrical" Case cdrSmoothNode s = s & "smooth" Case cdrCuspNode s = s & "cusp" Case cdrMixedNodes s = s & "nodes of different type" End Select If nr.Type <> cdrMixedNodes Then s = s & " nodes" s = s & " selected" End If MsgBox s End Sub