I put your script into a Keyboard Macro and fixed a few issues, and it now creates a take item/group..
Check the docs on the CreateGroup call, the second parameter requires an xpTakeItemGroup, not an xpBaseTakeItem. A group can not be created in the middle of an existing group, it needs to be created at the end of an existing group.
Also, the line where you GetSceneByName, should have a false at the end to indicate you don't want it to create a copy of a template, but you want to get a handle to the original template which is to then be inserted onto the sequencer..
I'm not sure this will work inside of an existing scene (like OnOnline or anywhere like that; as it's probably not safe to be modifying the sequencer in the middle of a scene going online; but it should be ok on a Keyboard Macro script).
`dim BaseTakeItem as xpBaseTakeItem
dim CurrentItem as xpTakeItem
dim CurrentGroup as xpTakeItemGroup
dim NewG as string
dim NewGroup as xpTakeItemGroup
Engine.Sequencer.GetFocusedTakeItem(BaseTakeItem)
CurrentItem = BaseTakeItem
CurrentItem.GetGroup(CurrentGroup)
Engine.Sequencer.CreateGroup("New Group", CurrentGroup, NewGroup)
dim Template as xpScene
dim Page as xpTakeItem
Engine.GetSceneByName("LOWERTHIRD", Template, False)
Engine.Sequencer.CreateTakeItem(Template, NewGroup, page)
`
#XPression