VBA/Excel/Access/Word/String Functions/Asc

Asc() Returns the character code representing the first character in a string.

   <source lang="vb">

Sub strDemo17()

  Debug.Print Asc("A")

End Sub

</source>