Public Function Get_row() As String
 
    Get_row() = m_row()
 
End Function

Public Sub OpenExcel()
    Dim XL As Object
    Dim ActiveWkb As Object
    Dim i As Integer
    Dim x As Integer
    Dim arrRow() As String
 
        'Open Chart
        Set XL = CreateObject("Excel.Application")
 
        XL.Application.Workbooks.Add
        Set ActiveWkb = XL.Application.ActiveWorkbook
 
 
        With ActiveWkb
 
            For i = 1 To List.Count
                Line = List.Item(i)
                arrRow = Line.Get_row()
 
                For x = 1 To (UBound(arrRow) + 1)
 
                    .Worksheets(1).Cells(i, x) = arrRow(x - 1)
 
                Next
 
            Next
 
        End With
 
        XL.Application.Calculate
        XL.Visible = True
 
End Sub