Android Question Error in Read Write Mifare Clasic Sector 2 and biger

Sub Activity_Resume 'ok
    Try
        nfc.EnableForegroundDispatch
        Dim si As Intent = Activity.GetStartingIntent
        If si.IsInitialized = False Or si = prevIntent Then Return
        prevIntent = si
        Dim tag As JavaObject
        If si.Action.EndsWith("TECH_DISCOVERED") Or si.Action.EndsWith("NDEF_DISCOVERED") Or si.Action.EndsWith("TAG_DISCOVERED") Then
            Dim techs As List = nfc.GetTechList(si)
            Log($"Techs: ${techs}"$)
       
            Dim Id0() As  Byte
            Dim Id(8) As  String
            Dim jTagTech As JavaObject
'NfcA
            If techs.IndexOf("android.nfc.tech.NfcA")> -1 Then
                TagTech.Initialize("TagTech", "android.nfc.tech.MifareClassic", si)
                TagTech.Connect
                jTagTech  = TagTech
                tag   = jTagTech.RunMethod("getTag", Null)
                Id0   = tag.RunMethod("getId", Null)
                If Id0(0)>0 Or Id0(1)>0 Or Id0(2)>0 Or Id0(3)>0  Then
                    Id(0)=    Right("0" & Bit.ToHexString(ToUnsigned(Id0(0))),2)
                    Id(1)=    Right("0" & Bit.ToHexString(ToUnsigned(Id0(1))),2)
                    Id(2)=    Right("0" & Bit.ToHexString(ToUnsigned(Id0(2))),2)
                    Id(3)=    Right("0" & Bit.ToHexString(ToUnsigned(Id0(3))),2)
               
                    Log(Id(0)&" "&Id(1)&" "&Id(2)&" "&Id(3))
               
                    ListView1.AddSingleLine(Id(0)&" "&Id(1)&" "&Id(2)&" "&Id(3))
                Else
                    ListView1.AddSingleLine("error in Id")
                End If
            Else
                ToastMessageShow("Tag does not support Ndef.", True)
            End If
    End If
    Catch
        Log(LastException)
        ListView1.AddSingleLine("error:"&LastException)
'        Dim in As Intent
'        in.Initialize("android.settings.NFC_SETTINGS", "")
'        StartActivity(in)
   
    End Try
End Sub

Private Sub TagTech_Connected (Success As Boolean)
    Log($"Connected: ${Success}"$)
    sector=txtSector.Text
   
    If kA0.Checked Then
        key(0)=0xA0
        key(1)=0xA1
        key(2)=0xA2
        key(3)=0xA3
        key(4)=0xA4
        key(5)=0xA5
       
    else if kFF.Checked Then
        key(0)=0xFF
        key(1)=0xFF
        key(2)=0xFF
        key(3)=0xFF
        key(4)=0xFF
        key(5)=0xFF
       
    End If
   
    If Success = False Then
        ToastMessageShow("Error connecting to tag", True)
        Log(LastException)
    Else
        Try
            If ka.Checked Then
                TagTech.RunAsync("Authenticate", "authenticateSectorWithKeyA", Array(sector,  key), 0)
            Else
                TagTech.RunAsync("Authenticate", "authenticateSectorWithKeyB", Array(sector,  key), 0)
            End If
'            Authenticate
        Catch
            ToastMessageShow("Ath1:"&LastException,False)
        End Try
 
    End If
End Sub

Private Sub Authenticate_RunAsync (Flag As Int, Success As Boolean, Result As Object)
    Log($"Finished trying to auth. Success=${Success}, Flag=${Flag}"$)
    If Success Then
        Dim blockIndex As Int=txtBLK.Text
'        TagTech.RunAsync("blockToSector","blockToSector",Array(sector),0)
        Try
            Dim message  As String
            message="pedramghaneipou"
           
            If rdbWrite.Checked Then
                TagTech.RunAsync("writeBlock", "writeBlock", Array(blockIndex,message), 0)
            Else
                TagTech.RunAsync("readBlock","readBlock", Array(blockIndex), 0)
            End If
        Catch
            ToastMessageShow("Read2:"&LastException,False)
        End Try
    Else
        ListView1.AddSingleLine("Read error flag :"& Flag)
    End If
End Sub

Private Sub writeBlock_RunAsync (Flag As Int, Success As Boolean, Result As Object)
    Log($"Writing completed. Success=${Success}, Flag=${Flag}"$)
    If Success Then
        ListView1.AddSingleLine("Write ok:"&Result)
    Else  
        ListView1.AddSingleLine("Write error:"&Result)
       
    End If
End Sub

Private Sub readBlock_RunAsync(Flag As Int, Success As Boolean, Result As Object)
    Log($"Finished trying to read. Success=${Success}, Flag=${Flag}"$)
    Log(LastException)
    If Success Then
        If Result<>Null Then
            Dim myBlock() As Byte = Result
            ListView1.AddSingleLine(txtSector.Text & ">"&txtBLK.Text&":  "& _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(0))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(1))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(2))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(3))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(4))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(5))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(6))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(7))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(8))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(9))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(10))),2)&" "&  _
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(11))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(12))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(13))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(14))),2)&" "&  _            
                Right("0" & Bit.ToHexString(ToUnsigned(myBlock(15))),2)&" "  _
                )
            TagTech.Close
        End If
    Else
        ListView1.AddSingleLine("cannot read")
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    nfc.DisableForegroundDispatch
End Sub

Sub ToUnsigned(b As Byte) As Int
    Dim x As String
    x= Bit.And(0xFF, b)
    Return x
End Sub

Sub Right(Text As String, Length As Int) As String
    If Length>Text.Length Then Length=Text.Length
    Return Text.SubString(Text.Length-Length)
End Sub

Sub Process_Globals
    Private prevIntent As Intent
    'Dim key(6) As Byte = Array As Byte(0xA0,0xA1,0xA2,0xA3,0xA4,0xA5)  ' Fake key for the forum
    Dim key() As Byte = Array As Byte(0xA0,0xA1,0xA2,0xA3,0xA4,0xA5)
    'Dim key() As Byte = Array As Byte(0xFF,0xFF,0xFF,0xFF,0xFF,0xFF)
    Dim sector As Int=0
           
End Sub

Sub Globals
    Private nfc As NFC
    Private TagTech As TagTechnology
   
    Private rdbRead As RadioButton
    Private rdbWrite As RadioButton
    Private ListView1 As ListView
    Private flTxt1 As FloatLabeledEditText
    Private flTxt2 As FloatLabeledEditText
    Private txtSector As EditText
    Private txtBLK As EditText
    Private ka As RadioButton
    Private kb As RadioButton
    Private kFF As RadioButton
    Private kA0 As RadioButton
End Sub

Sub Activity_Create(FirstTime As Boolean)
   
    Activity.LoadLayout("Layout1")
    ListView1.SingleLineLayout.Label.TextSize = 14
    ListView1.SetColorAnimated(Colors.Red,Colors.Blue,Colors.Black)
    flTxt2.EditText.ForceDoneButton = True
   
End Sub

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="16" android:targetSdkVersion="26"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true" />
    <uses-permission android:name="android.permission.NFC" />
    )
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
'End of default text.