hello charset euc jis sjis

http://code.google.com/p/cowares-excel-hello/wiki/hello_charset_euc_jis_sjis
how to convert euc-jp and iso-2022-jp to shift_jis at a low level in vba
VBAで euc-jp と iso-2022-jp を shift_jis に低レベルな変換をする