For this to work you will need a project in VB6 with the MapPoint Control on a form (MappointControl1) and you will need to add a pushpin named BranchOffice1". Also add another pushpin so you can click one than the other to see if it works right. Let me know if this works for you..
Code:
Private Sub MappointControl1_SelectionChange(ByVal pNewSelection As Object, ByVal pOldSelection As Object)
On Error GoTo error:
Dim objmap As MapPointctl.Map
Set objmap = MappointControl1.ActiveMap
If TypeOf objmap.Selection Is Pushpin Then
If pNewSelection.Name = "BranchOffice1" Then
MsgBox "Display Info for Branch Office 1 Here."
End If
End If
Exit Sub
error:
End Sub