Пытаюсь записать информацию в лист Excel, но есть некоторые странные проблемы;) Я посмотрел информацию в Google, но безрезультатно. Так что, пожалуйста, помогите)

Я добавляю ссылку на библиотеку объектов Microsoft.excel 14.0, а также импортирую Microsoft.Office.interop

Мне нужно получить значение из определенной ячейки, поэтому я использую команду Checker = shXL.cells (1,1). И здесь у меня нет значения .... я получил только это (Equal / GetHashCode / GetType / toString) Так что вопрос в том, ПОЧЕМУ у меня нет (.Value) для .cells и где ошибка

        Dim appXL As Excel.Application
        Dim wbXL As Excel.Workbook
        Dim wbsXL As Excel.Workbooks
        Dim shXL As Excel.Worksheet
        Dim Checker As Integer

        appXL = CreateObject("excel.application")
        appXL.Visible = True

        wbsXL = appXL.Workbooks
        wbXL = wbsXL.Open("D:\Некорректные Переключения\Base.xlsx", , , , 12121)
        shXL = wbXL.ActiveSheet
        Checker = shXL.Cells(1, 1).value()

С наилучшими пожеланиями и THX!