Dim Buffer() As Byte=Array As Byte(0x02,0x20,0x1A,0x31,0x31,0x31,0x32,0x33,0x5E,0x4C,0x10,-->0x83<---(correct byte),0x18,0x18,0x18,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x0A,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x0A,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x00-->,0xE5,0xF5<---,0x03)
astream.write(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))