EUCをSJISへ変換するVBのサンプルソースないですか?