文字コードを表示する関数

Sub Sample1()
   Dim buf As String, dmp As String, i As Long
   buf = Range("B2").Text
   For i = 1 To LenB(buf)
       dmp = dmp & Hex(AscB(MidB(buf, i, 1))) & " "
   Next i
   MsgBox dmp
End Sub