VBA macro to paste each shape of a selection to new layers

I'm using CorelDRAW Graphics Suite 2024.

I want to paste 1 shape from a active selection on a newly created layer. I want to do that for each shape in the selection so that each shape ends up on separate new layer.

My previous attempt was with PasteEx(pasteopt), essentially STRG + C, STRG + V cause that's what a recorded macro would use. Then I found the ShapeRange method MoveToLayer in the CorelDRAW API documentation which seemed useful for what I'm trying to do and I remember reading that copy paste creates a lot of overhead and therefore is slower than CorelDRAW's native methods.

This is my current code:

Option Explicit
Sub DistrObjsToLyrs()

    Dim srOrigSelection As ShapeRange
    Set srOrigSelection = ActiveSelectionRange

    Dim i As Integer

    For i = 1 To srOrigSelection.Count

        ' Get shape name to pass on to "strLyrName"
        Dim strLyrName As String
        strLyrName = srOrigSelection.Shapes.Item(i).Name

        ' Create new layer "lrNewLyr" and pass the name saved on "strLyrName" to the new layer
        Dim lrNewLyr As Layer
        Set lrNewLyr = ActivePage.CreateLayer(strLyrName & i)
        
        ' Move all shapes in ShapeRange "srOrigSelection" to new layer "lrNewLyr"
        srOrigSelection.MoveToLayer (lrNewLyr)

        ' Remove current loops shape "i" from ShapeRange selection "srOrigSelection"
        srOrigSelection(i).RemoveFromSelection
            
    Next i
    
End Sub

The line "srOrigSelection(i).CopyToLayer (lrNewLyr)" always throws "Run-time error '438': Object doesn't support this property or method."

I've tried srOrigSelection(i).CopyToLayer (lrNewLyr) too, but that throws the same error. If I Debug or inspect lrNewLyr -> TreeNode -> Type it says "cdrLayerNode" in the locals window of the VBA editor which afaik is what the MoveToLayer/CopyToLayer functions expect?

I've also tried "srOrigSelection(i).CopyToLayer (lrNewLyr.Name)" but that throws a type missmatch.

Does anyone know what I'm doing wrong or if there is a more elegant solution?