Asc() Returns the character code representing the first character in a string.
Sub strDemo17() Debug.Print Asc("A") End Sub