Use the Asc() function to convert a character to its numerical representation
Sub ascDemo() Dim num1 As Integer num1 = Asc("A") End Sub