Range.StoryLength (Word)

Returns the number of characters in the story that contains the specified range.

Set myRange = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).Range 
If myRange.StoryLength > 1 Then MsgBox myRange.Text