Sub Test() 
 Dim s As Shape 
 Dim str As String 
 Dim cnt(3 To 10) As Long, n As Long 
 For n = 3 To 10 
  cnt(n) = 0 
 Next n 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrPolygonShape Then 
   n = s.Polygon.Sides 
   If n > 9 Then n = 10 
   cnt(n) = cnt(n) + 1 
  End If 
 Next s 
 str = "The document contains" & vbCr & _ 
  "the following polygons:" & vbCr & vbCr & _ 
  "Sides" & vbTab & "Count" 
 For n = 3 To 9 
  str = str & vbCr & n & vbTab & cnt(n) 
 Next n 
 If cnt(10) Then 
  str = str & vbCr & "Other" & vbTab & cnt(10) 
 End If 
 MsgBox str 
End Sub