例: UChr function

Dim azAlphabet As String
Dim letterCode As Long
' Iterate through the Unicode values for a through z,
' appending each corresponding letter to azAlphabet.
For letterCode& = Uni("a") To Uni("z")
   azAlphabet$ = azAlphabet$ + UChr$(letterCode&)
Next
Print azAlphabet$     ' Prints abcdefghijklmnopqrstuvwxyz