In ArcMap you can zoom to the selected features for a layer by right-clicking the layer and selecting Selection > Zoom to Selected Features. This article shows how to do this task using VBA and ArcObjects.
Procedure
Start ArcMap.
Create a new UIButtonControl.
Right-click the UIButtonControl and select View Source.