Any Ideas?
Function HomeMachine($HomeINIFile, $User, $WkStation)
  $HomeMachine = -1
  $delimiter = "!"
  $wsDelimiter = ","
  $workstations = GetINI($HomeIniFile,$User, $delimiter)
  Select 
    Case Ubound($workstations) <> 0
      For Each $Line in $workstations
        $ndx = IofSubStr($Line,$delimiter,1)
        If $ndx = 0 
          MessageBox("Substring (" + $delimiter + ") not found in " + $Line ,"substring not found")
        EndIf
        $ndx = IofSubStr($Line,$delimiter,$ndx+1)
        If $ndx = 0 
          MessageBox("Substring (" + $delimiter + ") not found in " + $Line ,"substring not found")
        EndIf
        ;MessageBox("line is " + $line  + " | ndx is " + $ndx + " | Len is " + Len($Line),"info")
        $strUsersWorkstations = Right($Line,Len($Line)-$ndx)
        $ret = MessageBox($strUsersWorkstations,"Users Workstations")
        $Workstations = Split($strUsersWorkstations,$wsDelimiter)
        For Each $lpWkstation in $workstations
          If $Wkstation = $lpWkstation
            $HomeMachine = 1;
          EndIf
        Next
      Next
    Case ($workstations = 2) 
      $HomeMachine = 2
    Case ($workstations = 13)
      $HomeMachine = 13
EndFunction

Function GetINI($File,optional $Section, optional $d)
     DIM $Rootdata, $sec, $i, $ii, $secdata, $Error
     DIM $Tarray[0]
     If not $d $d = "," EndIf
     If not Exist($file) $GetINI = 2 Exit EndIf
     $Rootdata = Split(ReadProfileString($file,$section,""),CHR(10))
     If UBound($rootdata) = 0 $GetINI = 13 Exit EndIf
     ReDIM preserve $rootdata[ubound($rootdata)-1]
     If not $section
          $i = 0
          For Each $sec In $rootdata
               $secData = GetINI($file,$sec,$d)
               $error = @ERROR
               ReDIM preserve $tarray[UBound($tarray)+UBound($secdata)+1]
               For $ii = 0 To UBound($secdata)
                    $tarray[$i] = $secdata[$ii]
                    $i = $i + 1
               Next
          Next
          If UBound($tarray) > 0 ReDIM preserve $tarray[$i-1] EndIf
     Else
         ReDIM preserve $tarray[ubound($rootdata)]
         For $i = 0 To UBound($rootdata)
               $tarray[$i]=$section+$d+$Rootdata[$i]+$d+ReadProfileString($file,$section,$Rootdata[$i])
         Next
     EndIf
     $GetINI = $tarray
     Exit($error)
EndFunction

$GetINI = $tarray

Exit($error)  

Quote:

---

Operator precedence
When several operations occur in an expression, KiXtart evaluates and resolves each part of the expression in a predetermined order. This predetermined order is known as operator precedence.

Parentheses can be used to override the order of precedence and force some parts of an expression to be evaluated before other parts. Operations within parentheses are always performed before those outside the parentheses. Within parentheses standard operator precedence is maintained.

The precedence of operators affects the grouping and evaluation of operands in expressions. Expressions with higher-precedence operators are evaluated first.

---