Byte型にキャストしましょBuffer(i) = MidB(Text1.Text, i - 11, 1) ↓Buffer(i) = CByte(MidB(Text1.Text, i - 11, 1))#激しく誤爆...>※少し気になるところ→なんでMidB()を使っているの?おそらくByte型の値域を超えるから?