Android Question Bluetooth and asyncstreams New_Data arriving late - PLEASE URGENT

'Class module
Sub Class_Globals
    Dim BTMac                As String  
    Dim Connected            As Boolean
  
    Private OSerial        As Serial
    Private OStream        As AsyncStreams
    Private RXData            As String
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
    OSerial.Initialize("OnSerial")
    Connected = False
End Sub

' show available BT devices for choose and return the MAC of the selected
Public Sub SelectionDialog As String
    Dim PairedDevices As Map
    PairedDevices = OSerial.GetPairedDevices
    Dim l As List
    l.Initialize
    For i = 0 To PairedDevices.Size - 1
        l.Add(PairedDevices.GetKeyAt(i))
    Next
    Dim res As Int
    res = InputList(l, "Selecione Bluetooth", -1) 'show list with paired devices
    If res <> DialogResponse.CANCEL Then
        BTMac = PairedDevices.Get(l.Get(res))
        Return BTMac
    Else
        Return ""
    End If
End Sub

Public Sub Connect
    If BTMac = "" Then
        ToastMessageShow("Informe Bluetooth as Ser conectado", False)
    Else
        If Not(Connected) Then
            OSerial.Connect(BTMac) 'convert the name to mac address and connect
        End If
    End If
End Sub

Public Sub Disconnect
    OStream.Close
    OnStream_Terminated
End Sub

Private Sub OnSerial_Connected (Success As Boolean)
    OSerial.Listen
    Connected = Success
    If Success Then
        OStream.Initialize(OSerial.InputStream, OSerial.OutputStream, "OnStream")
        ToastMessageShow("Bluetooth Conectado", False)
    End If
End Sub

Private Sub OnStream_Error
    Log("###Bluetooth "&LastException)
    OStream.Close
    OnStream_Terminated
End Sub

Private Sub OnStream_Terminated
    Log("###Bluetooth stream terminada")
    Connected = False
    OSerial.Disconnect
End Sub

Private Sub OnStream_NewData(Buffer() As Byte)
    Dim s As String
    s = OnlyNumbers(BytesToString(Buffer, 0, Buffer.Length, "UTF-8"))
    If s <> "" Then
        RXData = s
    End If
    Log("###Bluetooth recebido dados "&s)
End Sub

Sub RequestPeso
    Log("###Bluetooth request peso ")
    If OStream.IsInitialized Then
        Dim msg = Chr(5)
        OStream.Write(msg.GetBytes("UTF-8"))
'        RXData = ""
    End If
End Sub

Public Sub SendPrice(Price As String)
    Dim s As String
    Dim v As BigDecimal
    v.Initialize(Price)
    v.MovePointRight(2)
    s = Chr(2)&FillZeroes(OnlyNumbers(v.ToPlainString)&Chr(3), 6)
    OStream.Write(s.GetBytes("UTF-8"))
End Sub

Public Sub Read As String
    Dim s As String = RXData
    RXData = ""
    Log("### lido dados: "&s)
    Return(s)
End Sub

'Remove anything that is not in the range 0 -> 9
Private Sub OnlyNumbers(Value As String) As String
    Dim s As String
    s = ""
    For i = 0 To Value.Length - 1
        If (Asc(Value.CharAt(i)) >= Asc("0")) AND (Asc(Value.CharAt(i)) <= Asc("9")) Then
            s = s & Value.CharAt(i)
        End If
    Next
  
    Return s
End Sub

'Fill Zeroes to the Left according the number of digits
Private Sub FillZeroes(Value As String, Digits As Int) As String
    Dim s As String
    s = Value
    If Value.Length < Digits Then
        For i = 0 To Digits - Value.Length - 1
            s = "0" & s
        Next
    End If

    Return s
End Sub

            Dim I As Int
            Dim s As String
            Dim erro As Boolean
            I = 5
            Do While I > 0
                If FAppManager.GetConfig.GetBoolean("balancabt") Then
                    FAppManagerAct.BTMan.RequestPeso
                Else
                    FAppManagerAct.UsbMan.RequestPeso
                End If
                DoEvents
                DoEvents
                DoEvents
                DoEvents
                DoEvents
                DoEvents
                DoEvents
                erro = False
                If FAppManager.GetConfig.GetBoolean("balancabt") Then
                    s = FAppManagerAct.BTMan.Read
                Else
                    s = FAppManagerAct.UsbMan.Read
                End If
                If s.Length < 5 Then
                    I = I - 1
                    erro = True
                Else
                    FMultiplicador.Initialize(s) 'coloca o peso como multiplicador
                    div.Initialize3(1000)
                    FMultiplicador.Divide(div)
                    I = 0
                    erro = False
                End If
            Loop
          
            If erro Then
                ToastMessageShow("Problema na leitura balanca", True)
                Return -1
            End If