文字コードから文字を取得する

Dim st As String = System.Text.Encoding.UTF32.GetString(BitConverter.GetBytes(&H29E3D))

Debug.WriteLine(st) '𩸽

→ Debug.WriteLineが表示される場所

これでもできます。

Dim st As String = Char.ConvertFromUtf32(&H29E3D)

Debug.WriteLine(st) '𩸽

→ Debug.WriteLineが表示される場所

メモ：Char.ConvertFromUtf32 で コードポイント D800 ～ DFFF を指定するとArgumentOutOfRangeExceptionの例外になります。この範囲はサロゲート領域で、単独では文字は割り当てられていません。

これでもできます。

Dim rune As New System.Text.Rune(&H29E3D)
Dim st As String = rune.ToString

Debug.WriteLine(st) '𩸽

→ Debug.WriteLineが表示される場所

メモ：Runeのコンストラクターでコードポイント D800 ～ DFFF を指定するとArgumentOutOfRangeExceptionの例外になります。この範囲はサロゲート領域で、単独では文字は割り当てられていません。

#If NETCOREAPP Then
    System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
#End If

Dim code As Integer = &H88C0

Dim sjis = System.Text.Encoding.GetEncoding("shift_jis")
Dim st As String = sjis.GetString(BitConverter.GetBytes(code).Reverse.ToArray).Last

Debug.WriteLine(st) '安

→ Debug.WriteLineが表示される場所

※１：評価の目安

A: これを使っておけばよいと思います。よくわからない人はこれを使いましょう。

B: これでも問題ないです。D800～DFFFを変換しようとすると例外になりますが、この範囲には通常の文字は割り当てられていないので、例外が発生する方がむしろ親切なときもあります。

C: 役に立つときもありますが、使用に注意が必要なので手を出さない方が無難です。Unicodeの基本多言語面しか対応していないので、一部の絵文字やかなり難しい一部の漢字など対応していない文字があります。

D: お勧めしません。

※２：Unicodeのコードポイント。16進数で表記しています。