>>442
ありがとー。なんとかできました。

Dim sjisEnc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
dest = sjisEnc.GetString(sjisEnc.GetBytes(src))

でさらに問題が・・・
UNICODEからSJISに変換するとき変換できない文字もあるのですが
変換できなかったよというのはどうやったらわかるのでしょうか？