Hola Eva.

Para hacer lo que necesitas tienes que usar primero el método ObjectsFromPoint (que te coge todos los objetos que hay en un punto), y luego el método objFindResults.Item(1) para tener acceso a ese objeto que haya donde hayas pinchado.

En este caso yo sé que donde pincho hay un objeto pushpin:

Set objFindResults = objMapa.ObjectsFromPoint(x, y)
Set objPin = objFindResults.Item(1)

Lo del botón derecho del ratón creo que lo puedes controlar con If button=2 then .....