        Dim cell_value As String
        Dim ExcelApp As Excel.Application
        Dim ExcelBook As Excel.Workbook
        Dim ExcelSheet As Excel.Worksheet
        ExcelApp = New Excel.Application
        ExcelBook = ExcelApp.Workbooks.Open("C:\Anybook.xls")   'Add and open the path to workbook   
        'ExcelApp.Visible = True              
        ExcelSheet = ExcelBook.Worksheets(1)
        cell_value = ExcelSheet.Cells(1, 1).Value   'Row , Column
        ExcelSheet = Nothing
        ExcelBook = Nothing
        ExcelApp = Nothing 