>>747
変換を抑制する方法はなさそうだね。
こんなプログラム作ってコードを調べてみたらどう？

Private Sub Command1_Click()
Dim strChar As String
Dim i As Long
For i = 1 To Len(Text1.Text)
strChar = Mid(Text1.Text, i, 1)
Debug.Print strChar, Hex(AscW(strChar))
Next
End Sub