set objExcel = CreateObject("Excel.Application")
set objWorkbook = objExcel.Workbooks.Open("c:\file.xls")
intRow = 2
intCol = 1
do until (objExcel.cells(intRow, intCol).value = "")
if (inStr(objExcel.Cells(intRow, intCol).Value, "myValue")) then
msgbox "MyValue found in row" & intRow & " col" & intCol
end if
intRow = intRow + 1
loop
objExcel.Quit