What is wrong with the function below?
If I call the function with an argument, all seems to work as expected. However, if I call the function without any arguments, the function returns 1. Debugging shows that it somehow finds a match on the first Case statement. Can anyone explain to me why? And how to prevent that from happening.

Code:

Function CheckClient ($ClientColor)

   Dim $ClientColor, $FunctionResult
   $FunctionResult=0

   Select

      Case $ClientColor="Oranje"
         $FunctionResult=1

      Case $ClientColor="Groen"
         $FunctionResult=ABS(1-(InGroup("\\" + @WKSTA + "\Administrators")))

   EndSelect

   $CheckClient=$FunctionResult

EndFunction
_________________________
Grtx,
Dennis.