If a first-page header exists in section one, this example sets the text for the header.
Set aSection = ActiveDocument.Sections(1)
If aSection.Headers(wdHeaderFooterFirstPage).Exists = True Then
aSection.Headers(wdHeaderFooterFirstPage).Range.Text = _
"First Page"
End If