Word VisualBasic Script

Sub header()
    MsgBox Documents("Transfer.doc").Sections(2). _
        Footers(wdHeaderFooterFirstPage).Range.Text
End Sub