Access VisualBasic Script

Public Sub setOptions()
   With Application
      .SetOption "show status bar", False
      .SetOption "show startup dialog box", False
   End With
End Sub