Increases the magnification of the specified view.
expression.ZoomIn
expression Required. An expression that returns a View object.
This example increases the magnification of the active view.
Sub Zoom() ActiveView.ZoomIn End Sub