Sub EstraiDaExcel()

Dim xlApp As Excel.Application   'dimensiono la variabile oggetto per il riferimento ad Excel
Dim xlBook As Excel.Workbook 'la variabile per il riferimento al Workbook
Dim xlSheet As Excel.Worksheet 'e per il riferimento al Foglio
Dim ValoreCella As Variant 'Variabile in cui verrà messo il valore della cella di Excel

Set xlApp = New Excel.Application 'creo la nuova istanza di Excel
Set xlBook = xlApp.Workbooks.Open("C:TuaCartellaTuoFileExcel.xls") 'Carico il Workbook e lo assegno alla variabile oggetto
Set xlSheet = xlBook.Worksheets("Foglio1") 'Specifico il foglio da utilizzare e lo assegno alla variabile relativa

ValoreCella = xlSheet.Range("A1").Value 'estraggo dalla cella il valore che mi serve

Selection.TypeText Text:=ValoreCella 'scrivo su word il valore trovato

Set xlSheet = Nothing 'anniento la variabile relativa al foglio di excel

xlBook.Close (False) 'chiudo il workbook senza salvare (il False)
xlApp.Quit 'Chiudo l'applicazione Excel

Set xlBook = Nothing 'anniento la variabile del workbook
Set xlApp = Nothing 'anniento la variabile dell'applicazione Excel

End Sub