Считать два столбца из Excel - VB

Формулировка задачи:

Доброго времени суток. Возникли трудности с чтением из файла .xls двух столбцов (значений довольно много - более 9000). Нужно считать значения в этих столбцах и вывести их на форму.

   Dim z As String
        Dim r As String
        Dim d As Double
        r = ""
        z = ""
        d = 0
        appExcel = CreateObject("Excel.Application")
        appExcel.Workbooks.Open("d:\basa.xls")
        appExcel.Visible = False
        For i = 3 To 9954
            With appExcel.ActiveSheet
                r = "C" + CStr(i)
                d = .Range(r).Value
                z = z + CStr(d) & vbCrLf
 
            End With
        Next
        RichTextBox1.Text = z
        appExcel.Workbooks(1).Close(True)
        appExcel.Quit()

Подобное мало подходит и вывод неочень удобен.

Решение задачи: «Считать два столбца из Excel»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim arr, i As Long, j As Long
    arr = GetObject("d:\basa.xls").worksheets(1).Range("C3", "C9954").Value '.usedrange.Value
    'Всё - диапазон в массиве
    
    For i = LBound(arr, 1) To UBound(arr, 1)
         For j = LBound(arr, 2) To UBound(arr, 2)
              Print arr(i, j)
         Next j
    Next i
End Sub
                        