バイナリデータを変換するには？ (ID:83268)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 宜しくお願い致します。 VB5.0(SP3)で、バイナリデータ変換の際、次の現象が起きてしまいます。 Dim bytBData() As Byte Dim cnt_i As Integer Dim cnt_j As Integer Dim lenBData As Integer Dim StrSet As String * 1 Sub Main() Call BinaryWrite("E2") End Sub Sub BinaryWrite(strBData) bytBData = "" cnt_j = 1 ReDim bytBData(0) lenBData = Len(strBData) / 2 For cnt_i = 0 To lenBData - 1 ReDim Preserve bytBData(cnt_i) bytBData(cnt_i) = "&H" + Mid(strBData, cnt_j * 2 - 1, 2) cnt_j = cnt_j + 1 Next cnt_i StrSet = StrConv(bytBData, vbUnicode) ← ここが問題？ RESULT = Asc(StrSet) End Sub BinaryWrite()の引数が、 00〜80、A0〜DFの時は正しい値として0〜128がかえってきますが、 81〜9F、E0〜FFの時は0がかえってきます。 本当は、129〜159、224〜255がかえってきてほしいのですが。 これについて何か対処方法などございましたらよろしくお願いします。