RE:Leer una celda de Excel...
Debes de activar la Referencia, en Menu Proyecto-->Referencia se llama "Microsoft Excel 9.0 Object Library" debes de tener un Archivo Creado, en esta caso el archivo se llama Prueba.xls:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub Leer()
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Prueba.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet
With mySheet
I = 14 'Renglon donde quiero obtener los datos
Do While .Cells(I, 1) <> "" 'de la celda A
List1.AddItem Right("000" + CStr(.Cells(I, 1)), 3) + " " + .Cells(I, 2)'Le pasamos la informacion a un ListBox
I = I + 1
Loop
End With
xlApp.Quit
Set xlApp = Nothing
End Sub
Espero y te sirva saludos!!!