Android Question BLE Receving Data

    pbReadData.Show
    clv.Clear
    For Each s As String In ConnectedServices
        manager.ReadData(s)
    Next
    
    Dim s2 As String ="c2e6fba0-e966-1000-8000-bef9c223df6a"
    Dim c2 As String= "c2e6fba3-e966-1000-8000-bef9c223df6a"

    Dim s As String ="c2e6fba0-e966-1000-8000-bef9c223df6a"
    Dim c As String= "c2e6fba1-e966-1000-8000-bef9c223df6a"
    
    Sleep(2000)
    Try
        manager.SetNotify(s, c, True)
        'manager.SetNotify(s, c2, True)
    Catch
        Log(LastException)
    End Try
    Sleep(2000)
    Try
        manager.SetNotify(s2, c2, True)
    Catch
        Log(LastException)
    End Try

For i = 0 To arr.Length - 1
            If arr.Length =13 Then
                If i =12 Then
                    heartrate.Text = arr(i)
                    countx=countx+1
                    Update_Heartrate( arr(i), countx)
                End If
            Else If arr.Length =14 Then
                If i =12 Then
                    Dim s As Short =arr(i)
                    Dim g() As Byte = bc.ShortsToBytes(Array As Short(s))
                    blpressure1.Text = ToUnsigned(g(1))
                Else If i= 13  Then
                    Dim s As Short =arr(i)
                    Dim g() As Byte = bc.ShortsToBytes(Array As Short(s))
                    blpressure2.Text = ToUnsigned(g(1))
                End If
            Else If arr.Length =8  Then
                If i =7 Then
                    Dim s As Short =arr(i)
                    Dim g() As Byte = bc.ShortsToBytes(Array As Short(s))
                    battlbl.Text = ToUnsigned(g(1))  &  "%"
                    Dim battlevel As Int = ToUnsigned(g(1))
                    If battlevel >= 97 Then
                        batticon.Text=Chr(0xF240)
                    Else If battlevel < 97 And battlevel >= 80 Then
                        batticon.Text=Chr(0xF241)
                        batticon.TextColor =Colors.Green
                    Else If battlevel < 80 And battlevel >= 50 Then
                        batticon.Text=Chr(0xF242)
                        batticon.TextColor =Colors.Yellow
                    Else If battlevel < 50 And battlevel >= 10 Then
                        batticon.Text=Chr(0xF243)
                        batticon.TextColor =Colors.Red
                    Else
                        batticon.Text=Chr(0xF244)
                        batticon.TextColor =Colors.Red
                    End If
                    
                End If
            End If
        Next