Hallo Michael,
das ist der Code, der jetzt z.B Zelle A1-A31 ausliest:
Private Sub Command1_Click()
'Hier sollen die Daten eingetragen werden
Dim ExcelArray(0 To 30) As String
'Referenz auf Excel (Dem Projekt muss Verweis auf Microsoft Excel 9.0 hinzugefügt sein)
Dim Excel As Object
'Workbook
Dim WorkBK As Object
'Worksheet
Dim WorkSH As Object
'Referenz auf Excel setzen
Set Excel = CreateObject("Excel.Application")
'Hier Pfad ändern ! Öffnet Workbook
Set WorkBK = Excel.Workbooks.Open("C:\Dokumente und Einstellungen\David\Eigene Dateien\Test.xls")
'Referenz auf 1. Worksheet
Set WorkSH = WorkBK.Worksheets(1)

'Alle Daten der Zellen A1 bis A31 auslesen
'und ins Array schreiben
For i = 1 To 31
ExcelArray(i-1) = CStr(WorkSH.Cells(i, 1))
Next i
End Sub

Wenn man bis zur ersten leeren Zelle auslesen will, muss man den Code nehmen:

Private Sub Command1_Click()
Dim i as integer
'Hier sollen die Daten eingetragen werden
Dim ExcelArray() As String
'Referenz auf Excel (Dem Projekt muss Verweis auf Microsoft Excel 9.0 hinzugefügt sein)
Dim Excel As Object
'Workbook
Dim WorkBK As Object
'Worksheet
Dim WorkSH As Object
'Referenz auf Excel setzen
Set Excel = CreateObject("Excel.Application")
'Hier Pfad ändern ! Öffnet Workbook
Set WorkBK = Excel.Workbooks.Open("C:\Dokumente und Einstellungen\David\Eigene Dateien\Test.xls")
'Referenz auf 1. Worksheet
Set WorkSH = WorkBK.Worksheets(1)

'Alle Daten der Zellen auslesen
'und ins Array schreiben
Do
redim preserve ExcelArray(i)
excelarray(i) = cstr(worksh.cells(1,i+1))
i = i +1
Loop until cstr(worksh.cells(1,i)) = ""
End Sub

Ich habe beide Varianten ausprobiert und es haben auch beide funktioniert. Ich hoffe, dass Du damit etwas anfangen kannst.

Grüße
David