Asc function

Asc( str )

Returns a numeric value that is the ASCII code for the first character in a string.

Sub Main()
   Dim I, Msg   ' Declare variables.
   For I = Asc("A") To Asc("Z")   ' From A through Z.
       Msg = Msg & Chr(I)   ' Create a string.
   Next I
   MsgBox Msg   ' Display results.
End Sub