原因は文字が環境依存文字なので通常の指定方法で文字を表記させることができない為です。
下記URLを参考にしていただく方法で対応できます。
https://nkmrdai.com/vba-environment-dependent-characters/
リンク先のサンプル1と2を単純に結合しただけのサンプルコードですが、A1セルの中の文字コードをもとにA2セルへプログラム側から環境依存文字を出力しています。
Option Explicit
Sub 文字コード番号を調べる_A1セル()
Dim txt As String
txt = Cells(1, 1).Text
Cells(2, 1).Value = ""
Dim i As Long, c As String
For i = 1 To Len(txt)
c = Mid(txt, i, 1)
Debug.Print c & " ; 文字コード→" & Hex(AscW(c)) 'イミディエイトウィンドに出力されます(VBE上で Ctrl+Gで出現)
'ChrW("&H" & Hex(AscW(c)))で出力
Cells(2, 1).Value = Cells(2, 1).Value & ChrW("&H" & Hex(AscW(c)))
Next
End Sub
参考までに〇付の21〜30の文字コードを以下列挙しておきます。
21→3251
22→3252
23→3253
24→3254
25→3255
26→3256
27→3257
28→3258
29→3259
30→325A