Collection objects have a single property, Count, which returns the number of objects contained within the collections.

Dim nMarkers as long
 
'Get number of markers in the design
nMarkers = msApp.Design.Markers.Count

'Tell user
MsgBox “Design contains " & nMarkers & “ Markers.”