如何在VBA中将变量数组元素传递给ChrW（）？

Question

我试图将一个变体数组元素（包含一个long值）传递给ChrW（）函数，该函数需要一个Long类型的参数（字符代码），但是ChrW（）函数返回的是“？”。 >

我尝试创建长变量，将数组元素分配给长变量，然后将其传递给ChrW（），但是得到相同的结果。

Sub test()
    Dim i As Long
    Dim m As Long
    Dim n As Long

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Emojis")
    Dim a As Variant
    ' Load the values from the sheet into the array
    a = ws.Range("A1:B65").Value

    For i = 1 To 5
        m = a(i, 1)
        n = a(i, 2)
        Debug.Print m; n; ChrW(m) & ChrW(n)
    Next I    
End Sub

从中加载数组的工作表包含以下单元格值（类型为数字）值： -10179 -9148

-10179 -9140

-10179 -9139

-10179 -9137

等

Debug.Print输出：

-10179 -9148 ??

-10179 -9140 ??

-10179 -9139 ??

-10179 -9137 ??

等