Sub AStreams_NewData (Buffer() As Byte)
Dim BlueToothString As String
Dim CharacterFloat As Float
BlueToothString = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
CleanBlueToothCommand = CleanBlueToothCommand & BlueToothString
If CleanBlueToothCommand.Length > 20 Then CleanBlueToothCommand = ""
End Sub