こんにちは。わからないことがあるので投稿してみました。
Win98 Second EditionでVB6.0 SP5 を使っています。
漢字の「系」という字を一度バイナリデータにして、それを読み込んで「系」という字を復元したい
のですがうまくいきません。「系」をバイト型配列に入れると　配列(0) = 251、配列(1) = 124なので
すが、128を超える値が入っていると駄目なのかなと考えています。多分コードがおかしいと思うので
すがどこが悪いのかが分からなくなっています。
どなたかご存知の方、教えていただけないでしょうか。宜しくお願いします。
コードを載せてみました。宜しくお願いします。

Dim temp As String
Dim binary() As Byte , readbinary() As Byte
Dim lngFileLenB As Long

'★「系」をバイナリ型配列に挿入
binary = "系"
temp = Chr(binary(0)) & Chr(binary(1))

'★バイナリデータを「a.txt」に書き込み
intFileNo = FreeFile
Open App.Path & "\a.txt" For Output As #1
    Print #1, temp
Close #1

'★バイナリデータの読み込み
temp = vbNullString
Open App.Path & "\a.txt" For Binary Access Read As #1
    lngFileLenB = FileLen(App.Path & "\a.txt")
    ReDim readbinary(lngFileLenB - 1)
    Get #1, , readbinary
Close #1

'★「系」の復元
temp = ChrB(readbinary(0)) & ChrB(readbinary(1))

たとえば、こんなかんじでできます。

Dim temp As String
Dim binary() As Byte , readbinary() As Byte
Dim lngFileLenB As Long

'★「系」をバイナリ型配列に挿入
binary = "系"

'★バイナリデータを「a.txt」に書き込み
Open App.Path & "\a.txt" For Binary As #1
    Put #1, , binary
Close #1

'★バイナリデータの読み込み
Open App.Path & "\a.txt" For Binary Access Read As #1
    lngFileLenB = FileLen(App.Path & "\a.txt")
    readbinary = InputB(lngFileLenB , #1)
Close #1

'★「系」の復元
temp = readbinary

＞Starfishさん
お返事ありがとうございました。教えていただいたコードを見て参考にしたいと思っています。
バイナリデータなんて始めて利用するのでよく分かりませんでした。InputBという関数があるのは知り
ませんでした・・・・。
ありがとうございました。