messagebox(VBChr(158), "VBChr(158)")
messagebox(Chr(158), "Chr(158)")
; Putting the Chr(158) into two strings
$OutputStr1 = "A" + Chr(158) + "B"
$OutputStr2 = Chr(158) + Chr(158) + Chr(158)
messagebox($OutputStr1, "$OutputStr1")
; Now, the Chr(158) is shown as the same as VBChr
messagebox($OutputStr2, "$OutputStr2")
Function VBChr($i_Code)
Dim $sc
$sc = CreateObject("ScriptControl")
$sc.Language = "VBScript"
$VBChr=$sc.Eval('chr($i_Code)')
EndFunction