If NOT @LOGONMODE
    Break On
Else
    Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")

DIM $objExcel, $File, $Value
$File = "\\Server\Share\Dir\WorkBook1.xls"
$objExcel = CreateObject("Excel.Application")
If @ERROR = 0
    $RC = $objExcel.Workbooks.Open($File)
    $Value = $objExcel.Range("C6").Value
    $objExcel.Close
Else
    ? "Error creating first Excel object"
    ? "Error " + @ERROR + ": " + @SERROR
    Quit @ERROR
EndIf

Dim $Values[1,0], $i
$i = 0
$File = "\\Server\Share\Dir\WorkBook2.xls"
$objExcel = CreateObject("Excel.Application")
If @ERROR = 0
    $RC = $objExcel.Workbooks.Open($File)
    While NOT $objExcel.Range("A"+($i+1)).Value = ""
        ReDim preserve $Values[1,$i]
        $Values[0,$i] = $objExcel.Range("A"+($i+1)).Value
        $Values[1,$i] = $objExcel.Range("B"+($i+1)).Value
        $i = $i + 1
    Loop
    $i = $i - 1
    $objExcel.Close
Else
    ? "Error creating second Excel object"
    ? "Error " + @ERROR + ": " + @SERROR
    Quit @ERROR
EndIf

DIM $j
For $j = 0 To $i Step 1
    If $Values[0,$j] = $Value
        ? $Values[1,$j] ;Here is the value you were looking for
        $j = $i
    EndIf
Next