例: Uni function

' Print the Unicode character codes for A and a.
Dim x As Long, y As Long
x& = Uni("A")
y& = Uni("a")
Print x&; y&     ' Prints 65  97