German Probleme mit Byte Array

[mikimoto]

Guten Morgen,
ich werde verrückt mit den Byte Array in B4A und weiss nicht mehr weiter vielleicht kann mir jemand helfen ? Ich habe eine Funktion welche die Checksum berechnet und die Parity ändert. Der Code in vb.net
ist :
Private Function AddParity(ByVal _in As String) As Byte()
Dim item As Byte = &HFF
Dim p_par As Byte = &HD
Dim list As New List(Of Byte)
Dim encoding As New ASCIIEncoding
Dim num2 As Byte
For Each num2 In encoding.GetBytes((_in & Chr(10) & Chr(10) & Chr(10)))
item = CByte((item Xor num2))
list.Add(num2)
Next
item = CByte((item Xor p_par))
list.Add(p_par)
list.Add(item)
Return list.ToArray
End Function

Das funktioniert auch Klasse.
In B4A komm ich nicht weiter:

Sub AddParity(Inn As String) As Byte()
Dim bconv As ByteConverter
Dim item As Byte
item =0xFF ' &H7F

Dim p_par As Byte = 0x0d
Dim List1() As Byte
Dim encodeing() As Byte
encodeing = (Inn & Chr(10) & Chr(10) & Chr(10)).getbytes("ASCII")
'Dim num2 As Byte
For Each num2 As Byte In encodeing
item = Bit.Xor(item, num2)
List1.Add(num2)
Next
item = Bit.Xor( item , p_par)
List1.Add(p_par)
List1.Add(item)
Return List1
End Sub


Danke für Hilfe.