AscWメソッドを使えばできます。
UTF32ですよね？

'1文字目の「と」の文字コードを変数oneに代入。 

Dim one = AscW("と")

'2文字目の「も」の文字コードを変数twoに代入。 

Dim two = AscW("も")

'3文字目の「と」の文字コードを変数threeに代入。 

Dim three = AscW("や")

これでそれぞれの変数にそれぞれの文字コードがInteger型で格納されています。
これを引き出していけばできます。