RangeオブジェクトのSortメソッドが期待通りに動作しない

前提・実現したいこと

とある3桁のコードが複数あるのですが、これらをある順番に並び替えたいです。

コードについて
・使用するのは半角の「A,B,C,1,2,3」の6文字。
・文字の順番はランダム。
・このコード自体は並び替えない

並び替え方法
・英字→数字の昇順（A,B,C,1,2,3）
・1桁目は勿論、2桁目以降も上記のルールを考慮する。

例：BAC、0CC、A33の場合
[01] A33
[02] BAC
[03] 0CC

発生している問題・エラーメッセージ

まず、独自の並び替えリスト（A,B,C,1,2,3）を作成しました。
次に、すべての桁を考慮して並び替えを行うため、コードを1桁ずつに分解しました。
その後、1桁目を第1キー、2桁目を第2キー、3桁目を第3キーにして、独自の並び替えリストで並び替えを行いました。

しかし、その結果、英字よりも数字が先に並び替えられてしまいます。

数字を文字列として認識するよう書式の変更も行いましたが、効果はありませんでした。
原因等、何か分かりましたらご教示願います。

該当のソースコード

Option Explicit

Sub SortTest()

    '変数定義
    Dim ListNo As Long  'ユーザ設定リストの番号
    Dim i As Long  'ループカウンタ

    'ユーザ設定リストを作成
    Application.AddCustomList (Array("A", "B", "C", "0", "1", "2"))

    'リストの番号を取得
    ListNo = Application.GetCustomListNum(Array("A", "B", "C", "0", "1", "2"))

    With ThisWorkbook.Worksheets(1)

        '書式をすべて"文字列"に変更
        .Cells.NumberFormatLocal = "@"

        'A列のコードを1桁ずつ分解
        For i = 2 To 4
            .Cells(i, 2).Value = Mid(.Cells(i, 1).Value, 1, 1)
            .Cells(i, 3).Value = Mid(.Cells(i, 1).Value, 2, 1)
            .Cells(i, 4).Value = Mid(.Cells(i, 1).Value, 3, 1)
        Next

        '並び替え
        .Range("A1:D4").Sort _
            key1:=.Range("B2"), Order1:=xlAscending, _
            key2:=.Range("C2"), Order2:=xlAscending, _
            key3:=.Range("D2"), Order3:=xlAscending, _
            Header:=xlYes, OrderCustom:=ListNo, Orientation:=xlSortColumns

    End With

    'ユーザ設定リストを削除
    Application.DeleteCustomList (ListNo)

End Sub