>>406
情報ありがとうございました
dim theRes As String=HTMLViewer1.evaluateJavaScriptMBS("String.fromCharCode(26085);")
MsgBox theRes

で「日」が出ました