Application VisualBasic Script

Sub zoom()
    ActiveWindow.View.Zoom = 150
End Sub