Moving to Excel 2010 and line of code causing issues (ungrohp)

Not sure I follow. You would just reference the item array

    Dim vntItems As Variant
    Dim lngIndex As Long
    
    Set vntItems = ActiveSheet.ChartObjects(1).Chart.Shapes(1).Ungroup
    Set SecondBox = vntItems.Item(2)
    Set FirstBox = vntItems.Item(1)