Android Question AsyncStreams, non prefix, long messages

Dim LineBuffer As String    'where we build up BLE bytes into complete lines

private Sub AStream_NewData (Buffer() As Byte)
    Private aStr As String
    Private strNewData As String
    Private len As Int = Buffer.Length

    '*** ADD RECEIVED BYTES TO LINE BUFFER ***
 
    Dim NewData As String = BytesToString(Buffer, 0, len, "UTF8")    'note that UTF8 only nicely handles byte values 0..127 ie 7 bit ASCII values
    LineBuffer = LineBuffer & NewData
    Log("new_data: " & NewData)
 
    '*** SLICE OFF AND DESPATCH COMPLETE LINE(S) FROM LINE BUFFER ***

    'speedup: if NewData contains chr(13) then    'rather than repeatedly and unnecessarily searching entire (longer) LineBuffer'
    do while true
        dim P as int = index of chr(13) in LineBuffer
        if P = -1 then
            exit
        end if
 
        Dim CompleteLineExcludingCR As String = leftmost P characters of LineBuffer
        LineBuffer = LineBuffer from after character P ie the CHR(13)
 
        For Each Target In Array(Main, EM_SerialBT_Test, EM_Scan2, EM_Frequency, EM_OffsetGain)
            CallSub2(Target, "UG12Message", CompleteLineExcludingCR)
        Next
    loop
    'speedup: end if

End Sub