Grouped object - Convert multiple Outlines to Curves?

have macro for that

here are 2 codes I got from the Forum. I tested it on Corel 2020 and it is working, but it differs from each other.
If you don't know how to use it, tell me that I will give you the macro file in gms.

Sub AllOutlinesToObjects()

Dim sr As ShapeRange, sh As Shape

Set sr = ActivePage.Shapes.All
For Each sh In sr
If Not sh.Outline.Type = cdrNoOutline Then
sh.Outline.ConvertToObject
End If
Next

End Sub

___________________________________________________________________________________________

Sub ConvertOutlinesToObjects()
Dim p As Page
Dim s As Shape, sr As ShapeRange

If ActiveSelection.Shapes.Count = 0 Then
Set sr = ActivePage.Shapes.FindShapes
Else
Set sr = ActiveSelection.Shapes.FindShapes
End If
For Each s In sr
If s.IsSimpleShape Then
If s.Outline.Width > 0 Then
s.Outline.ConvertToObject
End If
End If
Next s
End Sub

https://community.coreldraw.com/share/b/eskimo/posts/getting-started-with-using-vba-macros-what-do-i-do-with-a-gms-file

I used the second code as GMS and it works on grouped Objects!
REQUEST: Popup window (like the "ConvertAllToCurves" macro, it has a cool window with *options.
1) * Convert Grouped to Curves
2) * Convert Grouped Outlines to Object
3) * Delete all Outline Curves (the curves that are centered in the Outline Object)

Corel Macro - Option to delete curves

Thank you!