Android Question Receive data Bluetooth

Sub AStreams_NewData (Buffer() As Byte)
 Log("Size: " & Buffer.Length)
End Sub

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

'Activity module
Sub Process_Globals
    Dim AStream As AsyncStreams
    Dim bc As ByteConverter
End Sub

Sub Globals
    Dim readings As EditText
    Dim label1 As Label


End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("2")
    readings.Color = Colors.black
    If AStream.IsInitialized = False Then
        'AStream.InitializePrefix(Main.serial1.InputStream, True, Main.serial1.OutputStream, "AStream")
        AStream.Initialize(Main.Serial1.InputStream, Main.Serial1.OutputStream, "AStreams")
    End If
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Log("Size: " & Buffer.Length)
    'readings.Text=Buffer(0)
    'label1.Text=("Data: " & bc.HexFromBytes(Buffer))
     If (Buffer(1)=0x46) Then 'Инициализация
     label1.Text="Ок"
     End If
End Sub

Sub AStream_Error
    ToastMessageShow("Connection is broken.", True)
End Sub

Sub AStream_Terminated
    AStream_Error
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
    If UserClosed Then
        AStream.Close
    End If
End Sub

Sub LightOn_Click
    AStream.Write(Array As Byte(0x00,0x05,0x3f))
End Sub

Sub HandleAStream_NewData (Buffer() As Byte)
    For i =  0 To Buffer.Length-1
        aStreamRxString.Append(Chr(Buffer(i)))
        If Buffer(i) = 13 Then

'      do something with the string
'      then initialise aStreamRxString and carry on receiving
        End If
    Next

Sub btnOpen_Click
    AStream.Write(Array As Byte(addr,0x05,0x3f)) '(addr,0x05,0xfb))
End Sub

Sub AStreams_NewData (Buffer() As Byte)   
    For i =  0 To Buffer.Length-1
        New123(j)=Buffer(i)
        j=j+1
        If j = 7 Then
            j=0
            Label1.Text=("Data: " & bc.HexFromBytes(New123))
            If (New123(1)=0x46) Then 'Инициализация
                Label2.Text="Пришёл "&New123(1)
            End If
        End If
    Next

Sub btnOpen_Click
    AStream.Write(Array As Byte(addr,0x05,0x3f)) '(addr,0x05,0xfb))
End Sub

Sub AStreams_NewData (Buffer() As Byte)  
    For i =  0 To Buffer.Length-1
        New123(j)=Buffer(i)
        j=j+1
        If j = 8 Then
            j=0
            Label1.Text=("Data: " & bc.HexFromBytes(New123))
            If (New123(1)=0x46) Then 'Инициализация
                Label2.Text="Пришёл "&New123(1)
            End If
        End If
    Next