Range.SpellingErrors (Word)

Returns a ProofreadingErrors collection that represents the words identified as spelling errors in the specified range.

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

Set myErrors = ActiveDocument.Paragraphs(3).Range.SpellingErrors 
If myErrors.Count = 0 Then 
 Msgbox "No spelling errors found." 
Else 
 For Each myErr in myErrors 
 Msgbox myErr.Text 
 Next 
End If