Range.Sentences (Word)

Returns a Sentences collection that represents all the sentences in the range.

For information about returning a single member of a collection, see Returning a Single Object from a Collection.

MsgBox ActiveDocument.Paragraphs(1).Range _ 
 .Sentences.Count & " sentences"