Insert qrcode from vba

Hello!

How to insert a QR-code object on the page from VBA macros?

I guess something like ActiveLayer.CreateCustomShape("QR-code????", ....??????)