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

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

 
Sub strDemo17()
   Debug.Print Asc("A")
End Sub