Anthony,



I'm assuming you can import the pushpins to start with and later export some data to excel. So here is how I would enumerate the pushpins within a given radius (100 for example) from a zipcode.
I'm using the ActiveX Control named MappointControl1 in VB6



Dim objmap As MapPointCtl.Map

Dim objDataSet As MapPoint.DataSet

Dim objRecordset As MapPoint.Recordset

Dim objLoc As MapPointCtl.Location

Set objmap = MappointControl1.ActiveMap



Set objLoc = objmap.FindAddress("", "", "", THEZIPCODEGOESHERE, geoCountryUnitedStates)



Set objRecordset = objDataSet.QueryCircle objLoc, 100)

objRecordset.MoveFirst

While Not objRecordset.EOF
msgbox objRecordset.Pushpin.Note & vbCrLf


objRecordset.Pushpin.Name



objRecordset.MoveNext



Hope this gives you something to start with.



John

john@support-pc.com