文字コードを調べるには、D2セルに
調べたい文字を入力するとE3に文字
コード番号が表示される。
E3にワークシート関数が書かれている。
=CODE(D2)

VBAでは下記のコードになる。
Sub Code()
  Cod = Asc(Range("D1"))
  Range("E2").Value = Cod
End Sub
D1セルに文字を書いて、実行すると
E2セルに文字コードが表示される。

●文字コード表
 
基本的なマクロの習得
文字コードの取得


実際に使っているシステムの内容で解説
  EXCEL VBA 講座