Dim enc As Encoding = Encoding.Unicode Dim byteArray() As Byte ReDim byteArray(SerialPort.BytesToRead) SerialPort.Read(byteArray, 0, SerialPort.BytesToRead) Dim strGetText As String = enc.GetString(byteArray) これをTextBoxに表示させていますが、「...」になります。 バイト配列には入っています。