Android Question Problem with Debug and AsyncStreams?

Sub Process_Globals
    Dim CommBuffer As String
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    CommBuffer = CommBuffer & msg
    If tmrSerialPoll.Enabled=True Then tmrSerialPoll_Tick
End Sub

Sub tmrSerialPoll_Tick
Dim f As Boolean
Dim p As Int
Dim Command As String
   
If CommBuffer.Length > 0 Then
    p=CommBuffer.IndexOf(Chr(13))
    If p > -1 Then
        Command = CommBuffer.SubString2(0,p)
        CommBuffer=CommBuffer.SubString(p+1)
    End If
End If
If Command.Length>0 Then
    Command=Command.Replace(Chr(10)," ")
    Command=Command.Replace(Chr(13)," ")
    Command=Command.Trim
           
    If Command.Length>2 Then
        f=ProcessCommand(Command)
    End If
End If
End Sub

Private Sub astreams_NewData (Buffer() As Byte)
    Dim newDataStart As Int = sb.Length
    sb.Append(BytesToString(Buffer, 0, Buffer.Length, charset))
    Dim s As String = sb.ToString
    Dim start As Int = 0
    For i = newDataStart To s.Length - 1
        Dim c As Char = s.CharAt(i)
        Log(c)