Как получить данные из Excel - VB

Формулировка задачи:

Пытаюсь понять возможно ли реализовать следующее:
Есть Excel таблица, возможно ли в этой таблице найти строку по содержанию одной ячейки и получить данные из этой строки но из других ячеек и вывести их к примеру через MsgBox?

Решение задачи: «Как получить данные из Excel»

textual
                            Листинг программы 
                        

                            Dim iCell, objExcel, objWorkbook, strLine

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\temp\233.xlsx")

strLine = InputBox("Введите искомые данные:","Поиск")
If strLine = "" Then
Wscript.Quit()
End If

With objWorkbook.Worksheets(1)
     Set iCell = .Range("A:Z").Find(strLine)
     If Not iCell Is Nothing Then
        MsgBox iCell.Address(External=True), vbInformation, ""
     Else
        MsgBox "Ячейка с искомыми данными не найдена", vbInformation, ""
     End If
End With
objExcel.Quit

                        