Экспорт текста меток на лист excel

---

привет,
я хочу экспортировать тексты меток из своей формы , но я не могу экспортировать по порядку из формы

в дополнение к

я изменил все метки tabindex в порядке от 0 до 60 но я не могу привести их в порядок

Что я уже пробовал:

    Sub ExportExcel()
         
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp As New Excel.Application
        '  Try
        Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
        Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
        xlApp.Visible = True
 
        With excelWorksheet 
            Dim s
            For Each lbl As Control In groupbox1.Controls
                If TypeOf lbl Is Label Then
                    If lbl.Left = 8 Then
                        s = s + 1
                        .Cells(s, 1).value = lbl.Text
                    End If
                End If
            Next lbl
            .Rows("1:" & .Rows.Count).Font.Size = 9
            .Rows("1:1").Font.FontStyle = "Bold"
            .Rows("1:1").Font.Size = 10
            .Cells.Columns.AutoFit()
            .Cells.Select()
            .Cells.EntireColumn.AutoFit()
            .Cells(1, 1).Select()
            If (Not System.IO.Directory.Exists("c:\sekreterya")) Then
                System.IO.Directory.CreateDirectory("c:\sekreterya")
            End If
            Dim misValue As Object = System.Reflection.Missing.Value

            .SaveAs("c:\sekreterya\gelirtablosu.xlsx")
        End With
        xlApp.Visible = True
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        xlApp = Nothing

    End Sub
End Class

---