バイナリデータから文字列の取得をするには

粗 2006-05-01 02:46:24 No: 131203

バイナリデータのある部分からある部分までのShift-Jisで
書かれた文字列(全角文字、半角文字)を取得し、
表示させたいのですが、どうもうまくいきません。
この一連の作業のプログラムを教えていただきたいです。
よろしくお願いします

とおりすがり 2006-05-01 21:36:40 No: 131204

Dim buf(9) As Byte
    buf(0) = &H82
    buf(1) = &HA0
    buf(2) = &H82
    buf(3) = &HA2
    buf(4) = &H82
    buf(5) = &HA4
    buf(6) = &H82
    buf(7) = &HA6
    buf(8) = &H82
    buf(9) = &HA8
    Debug.Print StrConv(buf, vbUnicode)

こういうこと？

粗 2006-05-02 04:09:46 No: 131205

おぉ、できました。ありがとうございます。

逆にUnicodeをShift-Jisにするにはどうすれば良いでしょうか？