>>42 さん
ありがとうございました。１６進数は４桁固定を想定なので、ちょっと追加

ａＳｔｒ　：＝　＂０ｘ０１２３＂　
ＳｅｔＦｏｒｍａｔ，　ＩＮＴＥＧＥＲ，　Ｄ　
ｄｅｃ　：＝　ａＳｔｒ　＋　０　
ＳｅｔＦｏｒｍａｔ，　ＩＮＴＥＧＥＲ，　Ｈ
ｈｅｘ　：＝　ｄｅｃ　＋　０　
ｈｅｘ　：＝　＂００００＂　．　ｓｕｂｓｔｒ（ｈｅｘ，３）
ＳｔｒｉｎｇＲｉｇｈｔ，ｈｅｘ，ｈｅｘ，４
ｈｅｘ　：＝　＂０ｘ＂　．　ｈｅｘ
ｍｓｇｂｏｘ，％　＂ａＳｔｒ＝＂　ａＳｔｒ　＂｀ｎｄｅｃ＝＂　ｄｅｃ　＂｀ｎｈｅｘ＝＂　ｈｅｘ