Thanks for the quick response.
The problem is the App is licensed and i am not allowed to post too much of the code...
Sub AStreams_NewData(Buffer() As Byte)
.
.
.
newProtocol = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
sb.Initialize
sb.Append(DateTime.Date(DateTime.Now)).Append(" ").Append(DateTime.Time(DateTime.Now))
sb.Append(";").Append(pos).Append(";").Append(batteryLevel).Append(";").Append(vers).Append(xstring).Append(";").Append(validProtocol)
Generell.AppendString(Main.dateien.Pfad, Generell.lieNr & "_Funk.txt", newProtocol & ";" & sb.ToString, True)
.
.
.
This is the Part where i log the incoming Protocol with further information into the Logfile. The only part before this is a Checksum method which is crucial so i can't leave it out.
I know this isn't much but i hope it helps.