Sub MyZoomIn()

Dim pDoc as IMxDocument

Dim pEnv as IEnvelope

Set pDoc = ThisDocument

Set pEnv = pDoc.ActiveView.Extent

pEnv.Expand 0.5, 0.5, True

pDoc.ActiveView.Extent = pEnv

pDoc.ActiveView.Refresh

End Sub