Yo e trabajando creando un reporte en un archivo excel, y lo que hago para recorrer las filas hasta el final es usar algo asi
Código:
Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
wb = xl.Workbooks.Open("C:\miarchivo.xls")
ws = wb.Worksheets("Hoja1")
If ws.UsedRange.Rows.Count > 0 Then
Dim Ran As Excel.Range
For i = 2 To ws.UsedRange.Rows.Count
Ran= ws.Range("H" & i & "")
'Ran.Value = "=D" & i & "-E" & i & "" 'Esto es para escribir
ListBox1.Items.Add(Ran.Value.Tostring) 'Este seria para leer, como es tu caso
next
prueba a ver si es lo que buscas