Private Sub CommandButton2_Click()

        Dim i As Long

        'Me - использую для удобства написания кода:
            'когда ставим точку, то появляется список, из которого
            'можно выбирать, а не печатать вручную.
            'Me - это место, где находится этот код.
        'ListCount - это количество строк в "ListBox".
        'i = 0, т.к. нумерация строк и столбцов начинается с нуля в "ListBox"
            '(видимо профессиональным программистам удобнее с нуля считать предметы).
        'ListCount - 1 - т.к. порядковый номер последней строки не будет
            'совпадать с количеством строк.
        For i = 0 To Me.ListBox1.ListCount - 1 Step 1

            'Берём данные из первого столбца.
            'Вывод результата в View - Immediate Window.
            Debug.Print Me.ListBox1.List(i, 0)

        Next i

End Sub

Private Sub CommandButton2_Click()
      
     'У VBA-массива тип данных должен быть "Variant".
     Dim myArray() As Variant
      
     'Помещаем в VBA-массив "myVariant" всю таблицу из "ListBox".
     myArray() = Me.ListBox1.List
      
     'Выводим в View - Immediate Window данные из
         'элемента VBA-массива "myVariant".
         'Берём данные из элемента, который находится
             'в первой строке и первом столбце.
     Debug.Print myArray(0, 0)

End Sub