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