HTMLで日本語の単語毎に個別のHTMLファイルを出力します。
そのため、日本語を一意の半角英数に変換する必要があるのですが
下記処理で漏れはないでしょうか？


Dim input As String = "16進数に変換してメッセージボックスに表す。"
Dim output As String = ""

For idx As Integer = 0 To Input.Length - 1

'1文字ずつ16進数の文字コードを取得する
output &= AscW(input.Substring(idx, 1)).ToString("X")

'文字と文字コードを出力
Debug.WriteLine(input.Substring(idx, 1) + " = " + output)

Next

MsgBox(output)