Dim buf As Byte() = {SerialPort1.BaseStream.ReadByte}
                    Dim AnalyzerText as String
 
                    'Byte umwandeln in String
                    Dim enc As New System.Text.ASCIIEncoding()
                    AnalyzerText = enc.GetString(buf)

fg viperbone