if IMEStatus=vbIMEModeOn then
sendkeys “%{kanji}“
end if

でどうですか？