I found out how to identify what was selected.

dim shp = Map

If TypeOf MPC.ActiveMap.Selection Is Object Then

Set shp = MPC.ActiveMap.Selection

' do what you want

end if