Asc ( str)
Returns a numeric value that is the ASCII code for the first character in a string.
Example:
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