VBA 環境依存文字の文字コードを取得する

Hex(AscW(文字列))

Option Explicit

Private Sub CommandButton1_Click()

    Dim str, strc As String
    Dim i As Long
    
    str = Cells(2, 2).Text
    
    Cells(2, 3).Value = Hex(AscW(str))

End Sub

Option Explicit

Private Sub CommandButton1_Click()

    Dim str, strc As String
    Dim i As Long
    
    str = Cells(2, 2).Text
    
    For i = 1 To Len(str)
        strc = Mid(str, i, 1)
        Cells(i + 2, 2).Value = Hex(AscW(strc))
 
    Next
    

End Sub

Option Explicit

Private Sub CommandButton1_Click()    
    
    Cells(2, 2).value = ChrW("&H" & 2622)    

End Sub