Visual Basic - Extraer una celda de Excel

Ayuda gracias como extraer una celda de excel donde tengo el resultado de un proceso, lo quiero poner en un text y que se actualice cada vez que cambio datos en excel gracias por la ayuda amigos

HOLA

Dim xlsMiFichero As Excel.Application
Set xlsMiFichero = New Excel.Application

xlsMiFichero.Workbooks.OpenText ("c:\DIRECTORIO\NOMBREEXCEL.XLS")

Text1.text = xlsMiFichero.Range ("C1") Siendo C1 la celda que queramos leer

ActiveWorkbook.Close savechanges:=False
xlsMiFichero.Quit
Set xlsMiFichero = Nothing