Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
Dim fred As Float
Dim wilma As Float
Dim barney As Float
fred = Buffer(0)
wilma = Buffer(1)
barney = Buffer(2)
[I]'wilma and barney code lines error in "out of bounds" fault on Buffer'[/I]
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
[I]'works great by showing all three characters recieved via bluetooth[/I]ToastMessageShow(msg, False)
Log(msg)
End Sub