Ah, I see. OK.
What about
Code:

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

Show(5)

Function Show($i)
$Show = $i
EndFunction


I do not see any orphans in this script. The script gives me one...

About the case
http://www.google.com/search?hl=nl&q=Scripting.Dictionary+CompareMode+site%3Amicrosoft.com&meta=
So very quick:
Code:

Dim $TextMode
$TextMode = 1
$dictAllVars.CompareMode = $TextMode