Ho risolto da solo...
Dim TempReaded as String = "0"
Dim ByteToRead as int16
TempReaded = TempReaded & comport.ReadByte
TempReaded = Mid(TempReaded, TempReaded.Length, 2)
ByteToRead = TempReaded
TempReaded = "0"
TempReaded = TempReaded & comport.ReadByte
TempReaded = Mid(TempReaded, TempReaded.Length, 2)
ByteToRead = ByteToRead & TempReaded

Rispondi quotando