Why my code(CS2 VB Script) only pastes what on the clipboard, not everything I select?

Question

I have created a graph, now I want to copy the entire thing to a new document.  I used the following code.  Even visually you can see it selected everything in the document, but when it pasted to a new document, it only pasted what's left on the clipboard, not everything as I wanted. 
What's wrong here? Does it have anything to do with grouping?  See code below.
Please help!  Thanks.
    Dim oCurDoc As Illustrator.Document
    Set oCurDoc = oApp.ActiveDocument
    Dim iPageItemCount As Integer
    iPageItemCount = oCurDoc.PageItems.Count - 1
    Dim vItems() As Variant
    ReDim vItems(iPageItemCount)
    Dim oPageItem As Object
    For Each oPageItem In oCurDoc.PageItems
        Set vItems(iCnt) = oPageItem
        iCnt = iCnt + 1
    Next   
    oCurDoc.Selection = vItems
    Dim oNewDoc As Illustrator.Document
    If oApp.Documents.Count > 0 Then
        If TypeName(oCurDoc.Selection) = "Variant()" Then
            oCurDoc.Copy
            Set oNewDoc = oApp.Documents.Add(aiDocumentRGBColor)
            oNewDoc.Paste
        End If
    End If

Answer 1

Yes, I tried to group them first by
    Dim oGrp As GroupItem
    For Each oPageItem In oCurDoc.PageItems
        Set oGrp = oCurDoc.GroupItems.Add
        Set oPageItem = oGrp.PageItems.Add
        iCnt = iCnt + 1
        If iCnt > iPageItemCount  Then Exit For
    Next
     oCurDoc.Selection = oGrp
But the selection is always "empty" - nothing been selected.  Why?
Thanks.