Powerpoint VisualBasic Script

Sub footer()
    ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = "text"
End Sub