Prova in questo modo:

dove x e y sono le cordinate della cella: x è la riga, y è la colonna.
Credo che i conteggi partano da 1, quindi la cella
A1 è foglio.Cells(1,1)
B6 è foglio.Cells(6,2)


codice:
Set xlApp = CreateObject("Excel.Application")
Set xls = xlApp.Workbooks.Open("D:\cartella\file.xls") 'Percorso del file
Set foglio = xls.Worksheets("Foglio 1") 'Nome del foglio di lavoro

strTxt = foglio.Cells(x, y)

xls.Close
xlApp.Application.Quit

Set foglio = Nothing
Set xlApp = Nothing
Set xls = Nothing