if english alphabetic u can use
dim a as string
a=chr(val( "&h" & "39" ) )
'a = "9"else if it's chinese
dim b as string
b=chr(val( "&h" & "BABA" ) - 65536 )
dim a as string
a=chr(val( "&h" & "39" ) )
'a = "9"else if it's chinese
dim b as string
b=chr(val( "&h" & "BABA" ) - 65536 )
dim a as string
a=chr(val( "&h" & "39" ) )
'a = "9"else if it's chinese
dim b as string
b=chr(val( "&h" & "BABA" ) )
'b = "汉"