VBscript, Excel und Find-Methode

Option Explicit
'On Error Resume Next  

Dim oWorkbook, oExcel, oSheet, arWerte, inti

Set oExcel 	= CreateObject("Excel.Application")  
Set oWorkbook 	= oExcel.Workbooks.Add()
Set oSheet	= oWorkbook.Sheets(1)

oSheet.activate
oExcel.Visible = True

'etwas Input für die Tabelle  
oSheet.Cells(1, 1).Value = "AAAC"  
oSheet.Cells(2, 1).Value = "BBB"  
oSheet.Cells(3, 1).Value = "AAA"  
oSheet.Cells(4, 1).Value = "DDD"  

'Array mit Suchwerten, die in der Tabelle gesucht werden:  
arWerte = Array("YYY","AAA")  

'In der Schleife ein Aufruf der Suchfunktion für jeden Wert im Array  
FOR inti = 0 To UBound(arWerte)
	fWertSuchen(arWerte(inti))
NEXT

Function fWertSuchen(strWert)
'On Error Resume Next  
Err.Clear

Dim oWertGefunden

CONST xlUp 		= -4162
CONST xlValues 		= -4163
CONST xlWhole 		= 1
CONST xlByRows  	= 1
CONST xlByColumns 	= 2

'Diese Zeile funktioniert einwandfrei, erlaubt aber keine genaue Suche nach Werten:  
'Set oWertGefunden = oSheet.Columns(1).Find(strWert)  

'Diese Zeile bringt folgenden Fehler: Kompilierungsfehler in Microsoft VBScript: ')' erwartet  
Set oWertGefunden = oSheet.Columns(1).Find(strWert,lookin:=xlValues,LookAt:=xlWhole)

IF oWertGefunden Is Nothing Then
	fWertSuchen = FALSE
	wscript.echo "       - " & strWert  
ELSE
	fWertSuchen = TRUE
	wscript.echo "+ " & strWert  
END IF

End Function