Function Unicode(val As Long)
   Unicode = ChrW(val)
End Function

Function Unicode(val As String)
   Unicode = ChrW("&H" & val)
End Function

=UNICHAR (HEX2DEC ($A1))

=UNICHAR ($A1)

=CHAR (HEX2DEC(A))

=CHAR (A)

=UNICHAR(128126)

=CONCATENATE(Unicode(55357), Unicode(56446))

Function UnicodeFromInt(val As Long)
    If val < 0 Or val > 1114111 Then
        UnicodeFromInt = "ERROR: value must be between 0 and 1114111!!"
        GoTo GetOut
    End If

    If val >= 55296 And val <= 57343 Then
        UnicodeFromInt = "ERROR: surrogate code points are not displayable!!"
        GoTo GetOut
    End If


    If val < 65536 Then
        UnicodeFromInt = ChrW(val)
    Else
        UnicodeFromInt = ChrW(55232 + Int(val / 1024)) & ChrW(56320 + Int(val Mod 1024))
    End If

GetOut:
End Function

Function UnicodeFromHex(val As String)
    UnicodeFromHex = UnicodeFromInt("&H" & val)
End Function

=UnicodeFromInt(128126)

=UnicodeFromHex("1F47E")