Dim $Key, $Value
$Key = 'HKEY_CURRENT_USER\Software\Golfing'
$Value = ReadValue($Key,'Round1')
If InStr($Value,'Enterprise|Terminal|Server|')
  'Found value' ?
Else
  'Value not found' ?
EndIf

Dim $SO,$Re ,$R, $S, $J
; Dimming variables is a good practice 
; Potential issues: 
; A.)  No issues in small one off scripts 
; B.)  In a large script single letter variables can be difficult to manage 
 
$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")
BREAK ON
; Setting options is a good practice 
; Most admins would rather not have BREAK ON for a Logon script, using 
If Not @LogonMode
  Break On
EndIf
; As recently posted, used by Witto would appear to be a good practice as well 
 
 
; Semi personal preference but single quotes ' would go within double quotes " 
; My own preference has been to now use the single for most scripting 
; However again this is not necessarilly a Best Practice more so than a preference 
; Knowing that single within double is the key point to remeber when coding more 
; complex scripts where needed. 
 
$R = ReadValue("HKCU\Software\Golfing","Round1")
 
$S = Split($R,"|")
 
$J = Join($S," ")
 
; Using CHR(20) or similar as needed is another option/choice when dealing with complex scripting 
 

; No vars declared, not a best practice for production scripting 
; Use of single character vars can be difficult to manage in large scripts 
; and scope issues could easily creep in. 
 
$ = ReadValue('HKCU\Software\Golfing', 'Round1')
 
; Nice use of InStr and SubStr for others to see examples of possible methods 
; of locating specific data 
Do
    $ = SubStr($, 1, InStr($, '|') - 1) + ' ' + SubStr($, InStr($, '|') + 1, Len($))
Until InStr($, '|') = 0
If Rtrim($) = 'Enterprise Terminal Server'
    ? 'Value Present'
EndIf

If NOT @LOGONMODE
	Break On
EndIf
 
Dim $SO,$Key,$wr
$SO = SetOption("Explicit","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("NoMacrosInStrings","On")
 
; Good practice setting the options, including the break on method. 
 
 
; Minor observation so that other new scripters are aware 
; KiXtart can use abbeviations for some of the main Registry keys 
 
 
;Registry Functions 
;All registry functions use the following format to specify registry subkeys: 
;[\\remote_computer_name\][Key\]Subkey 
;Remote_computer_name can be any valid computer name in UNC format (preceded by two backslashes).  
;If you do not specify a remote_computer_name, the program defaults to the local registry. 
;Key can be any of the main registry trees: HKEY_LOCAL_MACHINE (or HKLM in short),  
;HKEY_USERS (HKU), HKEY_CLASSES_ROOT (HKCR), HKEY_CURRENT_USER (HKCU) or  
;HKEY_CURRENT_CONFIG (HKCC). If you do not specify a root key, KiXtart will use  
;HKEY_CURRENT_USER as the default.  
 
 
$key='HKEY_CURRENT_USER\Software\','Golfing','Round1','Enterprise Terminal Server' 
 
; A best practice for a production script would be to use var names that have some 
; type of meaning that is easily understood. 
$wr=FindMe($key) ; will return a code to @error: 0 for true, and 1 for not true 
@error
 
Function FindMe($key)
Dim $ch,$found,$index,$valuename,$KeyF,$JoinKey,$Valuename2,$wr,$split,$inst
 
; Using $key[0] is optomistic.  If a user missed a comma or similar typo the 
; UDF would end abnormally.  
; I'd have to think about how best to modify it without completely changing your code. 
$ch=KeyExist($key[0]) ; Does the HKEY_CURRENT_USER_\Software\ exist? 
 
; In many cases just an If $var is good enough, but be aware there are times that 
; this is not sufficient and could lead to unexpected results. 
if $ch 
 
; This is along the lines of the $key[0] issue and you've set it so that there 
; is a known value to start with which is good. 
$found=0 
$index=0 ;Setting values so the while-statement will not run forever.. 
 
 
 while @error=0 and $found=0 
  $ValueName = ENUMKEY($key[0],$index)
  if $ValueName = $Key[1] $found=1 
   ; Need to be careful or at least aware of data types when concatenating data 
   $KeyF=$key[0],$ValueName
   $JoinKey=Join($KeyF,'')
   $wr=ReadValue($JoinKey,$Key[2])
   $split=Split($wr,'|')
   $wr=Join($split,' ') 
   $inst=Instr($wr,$Key[3])
   if $inst exit 0 else exit 1 endif
   else
    $Index = $Index + 1
  endif
 loop
  exit @error
endif
 
EndFunction
 
; Overall I'm not comfortable with the calls to array elements without 
; some type of prior initialization as it could easily lead to a script abend.