если в колонке А записаны буквы английского алфавита, как в Экселе с помощью 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") = aEnd SubВо вложении находится рабочая книга Excel-2003.