Option Explicit
Rem This example duplicates an art item from one document to another,
Rem moves the item to a specific index position in its layer

Private Sub Command1_Click()
    Dim appRef As New Illustrator.Application
    Dim targetDoc As Illustrator.Document
    Dim sourceDoc As Illustrator.Document
    Dim textArt As Illustrator.TextArtItem
    Dim sourcePageRef As Illustrator.PageItem
    Dim dupRef As Illustrator.PageItem
    Dim targetLayer As Illustrator.Layer
    
    If (appRef.Documents.Count = 0) Then
      Set sourceDoc = appRef.Documents.Add()
    Else
      Set sourceDoc = appRef.ActiveDocument
    End If
    If (sourceDoc.TextArtItems.Count = 0) Then
      Set textArt = sourceDoc.TextArtItems.Add()
      textArt.Position = Array(100, 425)
      textArt.Contents = "Illustrator Scripting"
      textArt.TextRange().Size = 48
    Else
      Set textArt = sourceDoc.TextArtItems(1)
    End If
    Set targetDoc = appRef.Documents.Add
    Set targetLayer = targetDoc.Layers.Add
    targetLayer.Name = "Target Layer"
    
    Set sourcePageRef = sourceDoc.PageItems(1)
    Set dupRef = sourcePageRef.Duplicate
    
    dupRef.MoveToBeginning targetLayer
    
End Sub