先頭文字の文字コードを16進表記で返す関数

引数として「A」を渡したら「41」、「あ」を渡したら「82A0」を返す関数。

Function GetHexCode(xs As String) As String
    GetHexCode = Hex(Asc(xs))
End Function

ワークシートから呼び出してもいいし、VBAの中で呼び出してもOK。