Application VisualBasic Script

Sub zoom()
    ActiveWindow.Zoom = 150
End Sub