Function vbChar(thischr)
	innercode = asc(thischr)
	If innercode < 0 Then innercode = innercode + &h10000
	vbChar=innercode
End Function 

Function chrval(vstrin) 
    chrval = chr(vstrin)
End Function