【VBA】\u3042→あ とするサンプル

gistfile1.bas

Option Explicit

Sub test()
    Dim bin(1) As Byte
    
    bin(0) = &H30
    bin(1) = &H42
    Debug.Print bin2text(bin, "UTF-16BE")
End Sub

Function bin2text(bin() As Byte, charset As String) As String
    Const adTypeBinary = 1
    Const adTypeText = 2
    Dim stm As Object
    
    Set stm = CreateObject("ADODB.Stream")
    stm.Open
    stm.Type = adTypeBinary
    stm.Write bin

    stm.Position = 0
    stm.Type = adTypeText
    stm.charset = charset
    bin2text = stm.ReadText

    stm.Close
    Set stm = Nothing
End Function