Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim myString as string
initialize the xlapplication
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = xlApp.Workbooks.Open(strPath & strFileName)
xlSheet = xlBook.Worksheets(1)
myString = xlSheet.Cells(1, 1) (Row, Column)
xlSheet = nothing
xlBook.Close()
xlBook = nothing
xlApp.Quit()
xlApp = Nothing