Если в колонке а записаны буквы алфавита, как в экселе с vba записать в колонке в номера этих букв по алфавиту?

Для удобства запуска на листе рабочей книги установлена кнопка и в ней прописан следующий код:

Private Sub CommandButton1_Click()
    cA = Asc("A") - 1
    a = Range("A2:B27")
    For i = 1 To 26
        a(i, 1) = UCase(a(i, 1))
        a(i, 2) = Asc(a(i, 1)) - cA
    Next i
    Range("A2:B27") = a
End Sub

Во вложении находится рабочая книга Excel-2003.