Intersect points polygons VBA

Hallo!

ich bräuchte dringend einen VBA Code, der mir einen Point Layer und einen Polygon Layer verschneidet und die Ergebnisse dann in den Point Layer schreibt. Zu jedem Punkt im Punkt Shape soll dann einfach das dazugehörige Polygon aus dem Polygon Shape stehen.

Ich bin nicht fündig geworden. Normal ist das ja ne Standard Anwendung mit "Intersect", aber als VBA Code ist das nicht so trivial, glaub ich?!

Danke für Eure Hilfe!

Euer Holger